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Para que futuro você está 





educando seu filho? 


Rs 





ssim como toda educação 
emana de alguma imagem do 
futuro, toda educação emana 


Os dois usam eis remar mo 
MA 


O CP 200 da Prológica é simples de operar. 
custa menos do que um tv a cores e faz 
importantes trabalhos de interesse de toda a 
familia. Com ele você e seus filhos aprendem a 
linguagem “Basic” e ficam aptos a programar 
qualquer tipo de computador, participando ê 

criando o momento atual que já é chamado de 
“a era da informática”. 

Basta ligar o CP 200 a um televisor e a um 
gravador para você ter um computador 
completo em sua casa. 

Assim como o extrato de tomate, 

liquidificador. o durex, o autom Gel a máquina 


Veja o que você faz com o CP 200: 

e Aprendizado em linguagem Basic 

e Divertidos jogos e passatempos eletrônicos 
e Orçamento doméstico 

e Controle de conta bancária 

e Aulas de matemática e física 

e Gráficos e cálculos científicos 
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Av. Engº Luiz Carlos Berrini, | 168 - SP 


E vai dar mais tempo para você e sua familia 
criarem um futuro melhor. 
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de escrever e a calculadora, o CP 200 vai a: ADOS (| 
simplificar sua vida, me NACIONAIS | 


SOLICITE DEMONSTRAÇÃO NOS PRINCIPAIS MAGAZINES. 


AL - Maceió - 221-4851 - AM - Manaus - 234-1045 - BA - Salvador - 247-8951] - 2354184 - CE - Fortaleza - 226-0871 - 231-1295 - 226-4922 - DF - Brasilia - 226-1523 - 273-2128 - 
2254534 - 2206-4327 - 242-6344 - ES - Vitória - 2291387 - 222-581] - GO - Goiânia - 224-7098 - 2258598 - 224-4657 - MA - São Luis - 222-6696 - MT - Cuiabá - 321-2307 - MS - 
Campo Grande - 383-1277 - Dourados - 421-1052 - MG - Belo Horizonte - 201-7555 - 226-6336 - 225-3305 - 222-3196 - 227-088] - Betim - 531-3806 - Cel. Fabriciano - 8411-3400 - Juiz de 
Fora - 212-9075 - Uberlândia - 235-1099 - 235-6600 - Viçosa - 891-2445 - PA - Belém - 228-001 1 - PB - João Pessoa - 221-8232 - 221-6743 - PR - Curitiba - 224-5616 - 243-1731 - 
ddd-sád - 2203-2323 - 232-2793 - Ponta Grossa - 24-0057 - PE - Recife - 2210142 - 2221-5774 - Pl - Teresina - 222-01B6 - RJ - Campos - 22-37 14 - Rio de Janeiro - 264-5797 - 221-5]4] - 
240-1099 - 2606-4499 - 253-3395 - 252-2050 - RN - Natal - 222-3212 - RS - Caxias do Sul - 221-3516 - Gravataí - 88-1023 - Novo Hamburgo - 93-1922 - Porto Alegre - 26-8246 - 

42-0908 - 27-2255 - 214189 - Sta, Maria - 221- Pau - RO - Porto Velho - 221-2656 - SP - Araçaluba - 23-8021 = Assis - 22-1797 - 22-2200 - Barretos - 22-64 1 1 - Campinas - 24483 - 
32-4145 Jundiai - 434-0222 - Mania - 33-5099 - Mogi das Cruzes - 469-6640 - 468-3779 - Mogi Guaçu « 610256 - Piracicaba - 33-1470 - Presidente Prudente - 22-3165 - Ribeirão Preto - 
0625-5924 - 625-5926 - 635-1195 - São joaquim da Barra - 728-2472 - São José dos Campos - 23-3752 - 22-731 | - São José do Rio Preto - 32-2842 - Santos - 33-2230 - Sorocaba - 33-7794 - 
S€ - Blumenau - 22-6277 - Campos Novos - 44-01 96 - Criciúma - 33-1436 - Florianópolis - 22-9622 - 2246757 - Itajaí - 44-1524 - Joinvile - 33-7520 - Rio do Sul - 22-0557 - SE - Aracaju - 2244-1310 
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Informática 84, de 5 a 11 de novembro, no Riocentro, será não apenas a 
maior mostra de equipamentos da América Latina mas também o espaço de 
uma grande festa: a festa da indústria nacional do setor, que no último dia 
3 de outubro viu recompensado seu esforço através da aprovação de projeto 
que institucionaliza a Política Nacional de Informática, na forma de 
substitutivo elaborado pela Comissão Mista do Congresso. 

A Prológica Microcomputadores, que há exatamente um ano se lançava 
numa campanha em defesa do mercado interno de informática, sente-se | 
gratificada com aprovação do substitutivo da Comissão Mista, que estabelece o 
prazo de oito anos de reserva do mercado de informática às empresas brasileiras 
e cria o CONIN — Conselho Nacional de Informática e Automação, ligado à 
Presidência da República. 

Outra boa notícia a nossos leitores e usuários: a Prológica acaba de lançar o 
protocolo de comunicações RTTY, que gerencia a ligação dos micros CP 300 e 
CP 500 ao Serviço Público Cirandão, da Embratel. Informações gerais, 
intercâmbio de programas e dados específicos da área de informática são 
algumas das vantagens que a Prológica coloca à disposição de seus usuários 
através do Cirandão, ao qual dedicamos a matéria de capa desta edição de 
Geração Prológica. E | | 

Ainda neste nono número de GP (págs. 7, 8) estamos publicando para o CP 
400 Color o jogo Ataque, escrito e selecionado pelo nosso departamento de | 
software CP. E nas páginas 21 e 22, nossos leitores encontrarão a descrição de- 
um circuito, desenvolvido especialmente para Geração Prológica por Alexandre 
Faragó, que permite a utilização do CP 500 na comutação de aparelhos 
elétricos. 

A todos, uma boa leitura. 













Carlos Roberto A. Gauch 
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* Contas a pagar e a receber 

Fiquei muito contente com o programa Contas a Pa- 
“gare a Receber, publicado na GP nº 6. No entanto, 
gostaria de fazer algumas observações a respeito do mes- 
mo, pois não consegui rodá-lo no meu CP 500, versão cas- 
sete, sem impressora. 






Na linha 290, a primeira instrução PRINT está com o 
sinal do modificador invertido. A linha 650 parece-me in- 
completa, impossibilitando a “consulta por nome” se o re- 
ferido nome estiver cadastrado como “'a receber”. Se o 
nome estiver cadastrado como “'a pagar”, a rotina é execu- 
tada normalmente, 


Ao fazer uma consulta por “data” ou por “mês”, o meu 
programa está parando na linha 1040. Não consegui enten- 
der o fluxo, pois uma vez que se responda “'N”' à pergunta 
“deseja imprimir dados?” (linha 830) o programa deveria 
pular as linhas 1020, 1030 e 1040, visto que são instruções 
para impressora. Já fiz uma conferência rigorosa nas linhas 
830 a 1080, não encontrando nenhum erro na minha digi- 
tação. É importante observar que: se for retirada a linha 
1040 (mesmo sem retirar as linhas 1020 e 1030), a rotina 
é executada perfeitamente, tanto para 
a “consulta por data” como para a 
“consulta por mês”. Minha última dú- 
vida é a seguinte: qual a utilidade da 
linha 707º 
Adauto Delmiro da Silva/Brasília-DF 


Prezado Adauto, na linha 290 do 
programa Contas a Pagar e a Receber 
houve, de nossa parte, um erro de di- 
gitação: substitua o sinal“ * por uma 
arroba “(o ”. Na linha 650 não há er- 
ro. No início da linha 1040, acrescen- 
te: 1040 IFH = | THEN... A linha 
70 é uma linha opcional, pois permite 
ao usuário implementar no lugar do 
cursor um caractere diferente do ori- 
nat. O cursor está no endereço 16419 
e para modificá-lo você deverá alterar 
o código ASC IH. Exemplo: POKE 
16419,197. Deste modo, o cursor se 
transformará numa carinha, referen- 
ao código 197. 












q Sou engenheiro civil e 
“usuário de um CP 300, 
versão cassete. Quando 
comprei o meu micro, espe- 
rava obter maior rendimen- 
to em meu trabalho. No en- 
tanto, estou esbarrando tm 
alguns obstáculos que estão 
me custando muito tempo. 
Em princípio, desejaria sa- 
ber quais os softwares dispo- 
níveis no mercado para a 
área de engenharia civil. 
Também desejaria adquirir 
literatura especializada sobre 
as características e possibili- 
dades do meu micro, lingua- 
gem Basic e Linguagem de 
Maquina para o TRS-80: 
Almir Frizas 
Barra Mansa - Rj$ 


* CP 200 versus TV a cores 


' Sabe-se que a imagem do CP 200 é em preto e branco. Minha TV (e muitas outras) possui con- 
* troles de excitação verde, vermelha e azul. Creio que se a forma de onda aplicada na antena 


* CP 300: literatura especializada 


Caro Almir, você pode 
encontrar a relação dos apli- 
cativos para a drea de enge- 
nharia civil no Encarte Espe- 
cial de Software, que publi- 
camos na GP 8. Com rela- 
ção aos livros voltados ao 
TRS-80 lhe indicamos três ti- 
tulos, todos da Editele Edito- 
ra Técnica Eletrônica: “Ba- 
sicde 8a 80”, vol. Te II; 
“Sugestões para o Progra- 
mador Basic” e “Mais Pro- 
gramas para o seu TRS-80”. 
Estes livros podem ser en- 
contrados em todas as livra- 
rias técnicas do Pais ou na 
própria Editele, r. Casa do 
Ator, 1060, CEP 04546, São 
Paulo, tel.: 531-5468. 





pelo modular de RF excitar todos os canhões com a mesma intensidade, produzindo luz (imagem) 

branca, atenuando-se dois canhões quaisquer a cor será aquela mais intensamente excitada, certo? 

Minha dúvida é: como o CP 200 age sobre os canhões de uma TV colorida?” 

Carlos Alexandre da Silva - Rio de Janeiro - RJ 
Prezado Carlos, o CP 200 não age sobre os canhões da TV colorida, ele só excita a imagem PB. 

Ísto porque o CP 200 não possui decodificador de cor para a excitação dos canhões. 
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ADQUIRA-OS SEGUINDO AS INSTRUÇÕES ABAIXO: 
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BASIC PARA CRIANÇAS — Vol. 1. ..cccciciisiicsicrios Cr$ 15.000 
BASIC PARA CRIANÇAS — Vol. 2......csusesecereseos Cr$ 21.000 
APLICAÇÕES P/O SEU TAS 80 — Val. 1.....ccc Cr$ 13.500 
APLICAÇÕES P/QO SEU TRS B0 — Vol. 2....,cc Cr$ 18.000 
SUGESTÕES P/O PROGRAMADOR BASIC... ,.cscccis Cr$ 12.500 
CP/M BÁSICO.... «« Cr$ 16.000 
MANUAL-DO-CE 200 assi ag FE sia ES « Cr$ 12.500 
MANUAL-DO CESDO MS Gu pci sa suada Tan Es Cr$ 12.500 
MANUAL DO CP 500... ....ccsccccsersas da aa e 78 Cr$ 14,500 
MANUAE DO DOS 500......... asccspens america ss CS 12500 


ATENÇÃO: PREÇOS VÁLIDOS POR 
TEMPO LIMITADO 


a A o ssa , z =. 


res 


Em anexo estou remetendo a importância de Cr5 » 
em Cheque Nº. " c'Banco a E O 
Vale Postal Nº e lenviar à Agência Central SP) 
para pagamento do/s livro/s assinalados ao lado, que me será/ão 
remetido/s pelo correio. EA EA 

Cheque ou Vale Postal, pagável em São Paulo, a favor de: 
EDITELE Editora Técnica Eletrônica Ltda. 














Nome. EA AR E ES a SS 
Endereço re. 


CEP Eua 


Cidade. - Estadao 


(Se não quiser destacar esta folha pode enviar xerox com os dados completos) 
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Modelo: CP 200 16 Kb RAM 








este jogo você terá como adversário seu micro, 
campeão invicto de 21,cpor isso vencê-lo não 
será nada fácil. Iniciando a jogatina, existirão 

21 palitos disponíveis e, a cada jogada, você poderá 
alterar seu número em até três palitos, sendo isto 
válido também para o computador. Como na maioria 
dos jogos desenvolvidos pela Prológica, no 21 todas 
as instruções & comandos necessários serão dispostos 
no vídeo. 


LO AE 

2 s* JOGO DOS FALITOS * 

3 “x PROLOGICA * 

&o + CF=200 * 

E CRE EEE IA E 

& EBNDECLS 

7 LET A=2i ; 

S PRINT AT 2,530 J060 DOS Zi PELIT 

TOS" EA RS= 80 
7 PRINT AT &sSFRETIRE 1,2 0U 3 PA -+ “PNEC 
LITOS paia 

LO PRINT HT 7,5:"PEFDE O JOGO AaQUE 

LE QUE" 

11 PRINT AT BSSP"RETIFOR O ULTIMO 

FOELITO" 


12 PRINT AT 15,5; “DIGITE ENTER 
13 INPUT Ps 

14 CLS 

15 FOR B=1 TO 4 

L6 FOR C=1 TO A 

17 TF B=1 THEN print PE: 

18 TF B)1 THEN PRINT E: 

19 NEXTO 

£Z0o PREITNT 

21 NEXTR 

22 PRINT 

23 PRINT TOE(3):A;“POLITOCS)" 

24 TF A=1 THEN GOTO 42 

25 PRINT TOB (3);"QUANTOS VOCE TIE 
E + 

2b INPUT X 

27 PRINT TRR (3): X 

28 IF X=A THEN GOTO 42 

29 IF X(1 OR X)3 OR X)Q THEN GOTO 
2b 

30 LET A=n-=Y 

31 IF A=1 THEN GOTO 44 

32 LET Y =A-=4HINT (0/4) 

33 IF Y = 1 THEN LET M=i+INT (34RI 
N) 

34 IF Y () A THEN LET M=Y+3-44INT 
(Y+3)/4) 

35 LET N=A-M 

36 IF A(=0 THEN GOTO 44 

37 CLS 


59 PRINT TAB (3):"VOCÊ TIROU "$Y 
39 PRINT TAB (3);5"EU TIREI “MM 
40 PRINT 

41507015 

42 PRINT TOR (3):5“EU VENCI" 

43 GOTO 45 

H& PRINT TRE (3)7"VOCE VENCEU" 
45 PRINT 


“O PRINT THE (3)5"PARA NOVO JOGO! 
47 PRINT THE (4)S"DIGITE ENTER" 
43 INPUT Pg 

4%» CLS 

SO RUN 

31 BAVE "PALITOS" 

Do GLE 

or FUN 
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AQUE 


CP 400 Color possui vários pacotes de software, entre aplicativos e 
jogos. Mensalmente estaremos veiculando programas que permitirão | 
Rs” explorar todas as potencialidades deste micro. No jogo que publica- 
mos abaixo, você lutará com uma frota de naves inimigas até destruí-las — 
o que dependerá de sua agilidade e capacidade de controlar o joystick. 
O jogo é composto por oito setores diferentes e em cada um deles você 
deverá encontrar defesas e obstáculos específicos, que precisarão ser ultra- 
passados. Para continuar a jogar, você ainda terá de atravessar as passa- 
gens que separam um setor do outro: túneis e por- 
tas laser que abrem e fecham e deverão ser trans- 
postas com todo o cuidado, pois qualquer choque 
o destruirá. Além disso, em cada setor você enfren- 
tará as naves inimigas e seus poderosos mísseis. 
O controle do joystick é muito importante. Com 
o direito, você controlará sua nave podendo 
transportá-la para cima, para baixo e para a frenie, 
com velocidade variada, sem poder jamais voltar 
atrás. Para atirar, aperte o botão de disparo e em- 
purre o joystick na direção de seu alvo e lembre-se: 
não deixe nunca os pontos brancos colidirem com sua 
nave: eles são mortais. Que a Força esteja com você! 





ESSES SE 


So “m ATAQUE = 
38 “m FROLOGICA x 
4a ta CP-4AR has 


SO PME DEDE EE O DO E E 


éB CLEIPOKESIU4UPI-B 


78 GaBsPRINTE4U. "ATAQUE": PRINTOUSI, "PRESSIONE QUALQUER TECLA“:FORT=P TO U STEPIsSPRINTALSD+TA3L.STRINGS(32.143+1446)72:6=6+1:NEXT 
BB IF INKEYt=""THENIFP=B0THENP=71U=B: ==]: GOTOZBELSEP=B:U=7:1=1:60T078 


?8 CLEAR3S:DIMS(I, 


1).Ccl.1orENCL:d) 


188 FMODE4, 1:SCREENI, 1:PCLS:PHODES, 1:X=10:Y=28:A8="TISBOLV3ICOCOAEBVESCUZACVISDVIBDUSEVIE":SC=l:NH=]:ES=2 


1180 GET(8,0)-(1.1) 


E. 6 


128 CIRCLE(E0.20)+5,7. Le. 25, 751 DRAW"BM2O, L7C7REDIREZDIREDINRZDILZDILZDILE"sPAINT(ZO,20),8.7:6ET(1S,15)9-(28.25),5+6 
138 MN=0:PMHODE4, 1:PCLS:PMODES.1:0N SC GOTO1050,.1270,10698,1118,.1078,. 1148.1158, 1148, 1038 
148 LINE(108.0)-(200,12). PRESET,B:PAINTÇIOE 29.3 SILINE(98,. 13)-(158,. 13). FSET:IFNH-1=ATHENI 60BELSENNSNH-=14 ]IFNN>3STHENNN=3 


150 FORT=1TONN:PUT 


(BH+Tn13.1)-=(101+7213,.11).5.-PSET:NEXT 


168 HH=]1Vexid=Y:GOTOUCO 


1728 HH=B:FORT=1TOS 
180 X=X+3:A= JOYSTK 


SIFZ(T)=BTHENFUTEPICT) PRCTII-(PLETI+IB PEcT)+18) EN PSETSP3CT)sPICT)sSPUGTI=PaÇT) NEXTELSENEXT 
(0) :B=JOYSTK(L)2 IFADUSTHENK=X+2ELSEIFASISTHENX=K-E 


198 IFB>4USTHENT=T+UELGSEIFECLSTHENT=T-u4 
288 ON SC GOTOMBA, 528, 640. 480,530.758.7B0,8168 
218 IFY<Z0RK>24ZORY>1BOTHENSCe=SC+1:GOTO13B 


228 PUTCU. M)=(U+13 
- 238 IFPPOINTÇX.Y=-1 
24uB GDOTDIBA 


«W+103.C.PSETSPUTÇX.T)-(X+13,.17+183,5,PSET:V=X:W=Y:D=PEEK (65268): IFD=1260RD=234UTHENZSO 
)J>50RPPOINT(X+14.Y+1)>250RPPOINT (X+14 + T+7)>350RPPOINTÇÃA.T+11)>5THEND4UB 


258 COLORA&: IFESISOREB>4STHENSER 


268 T=8:6070380 


270 IFT=BTHENCOBDELSEZ(T)=1:DE=Pi(T)+5:GOTOLPB 
| 288 IFA>D4USTHENDE=ZSSELSEDE=Q 


ZPB LINE(X+8. T+5)- 


(DE. 7+5).PSET:SOUNDZSI. L:LINE-(X+&. 7+5)  PRESET:IFZ(T)=1THENSSDELSEZIA 


388 IFMN=BANDSC=BANDE>D4SANDX+S=>195ANDX+4=<215THENS7B 
3180 FORT=1TOS:1IFZ(T)=BANDX+6=>PI(T)ANDX+á=<PI(T)+1IBTHENSZBELSENEXT:GOTOSSO 


32ZB IF(B>4SANDPZC(T 


1)>7)0R(ECLSANDP2(T)<Y) THENSSBELSENEXT:GOTOZ3A 


330 IFE<XISTHENDE=1BELSEDE=191 


40 LINEÇK+H8.V+5)- 
3380 Z(T)=1:DE=PECT 


(X+6& DE). PSET:SOUNDZSS. IILINE-(X+4.7+5)  PRESET:IFZ(T)=1THENTADELSEZIOA 
1+5:6070348 


340 55=55+SC+ES:PUT<PiCT).PZCT9)-(PLCT9+11.PZCT)+119- EM. PSET:POKESSU94 B:PLATAS:POKESS49PS  BrPUTÇPICT).PECTI)-CPLCTI+11.PELTIHL) CrPS 


ET:GOTO4ZA 


378 MN=1ILINE(X+8. T)=(X+á. PB)» PSETISOUNDESS, LIL INE-(X+8. 7) - PRESET:55=55+50:FORT=195TOZOS:PUTCT.BB)-(T+1B. 90) + Ce PSETINEXT:FORT=38TO7Ê 


TT; -PRESETINEXT: IFES=ZTHENNH=sNH+1:GOTOL4BELSELHA 
DATA j DHT] [1] ba || j 


eee 


= me = DE 





SBB FORP=T+1TOS:IFZ(P)=BANDY+S=>PE(PIANDY+S=<PEcP)+LATHENSSDELSENEXT:GOTOSZA 
38 IFA<ISTHENUIA 
4OB Pl(B)=255:IF PicFPoSPiCT) AND PicFPy>X THENT=P:NEXTE:BOTOZPRELSENEXTE:GOTOS7A 
418 PitB)=B:IF PicPy)>DPIST) AND PlcFy<X THENT=P:NEXTE:GOTOZ7BELSENEXTP:GOTOZ7ZA 
4Za RESTORE:COLOR?:0=156:U=55S:1=INT(ÇU/1068):U=U-=T=LAAB:GOSVE4SA 
438 RESTORE:D=140:1=INT(U/168)2:U=U-Tx1BB:GOSUEL4AR 
4YU4B RESTORE:D=17B:1=INT(<U/183:U=1)=12x18:G0SUEL4 SA 
| 456 RESTORE:D=190: I=ll: GOSUE44O: IFHH=1THENIPRELSEZSA 
458 FORT=BTOI:sRERDLS$:NEXT:PFUTÇD,. 1)=-1D0+8B.113-CrFSET:DRAWU“EBM"+STRS(D)+", 1º+L&sRETURN 
4728 DATARSDIAL SUIB, ER4UDIA,ASDSLADSRA,RéD5NLSDSLA, DSRALISDIB, NRADSRADSL As NRADSR4DSL SUS, NDZR&DSL ZDS,R$DSL SUSDIBRAUS  DSRSUSNLASDIA 
48a FORT=1TO3:IFZ(T)=1 THENHNEXT:GOTOSIBELSEIF H>PACT) THENPLLT)=PFIST)+ES ELSE FIcT;i=PIÇTI-ES 
usa IF T>PEtT) ANO PEcTI+ES<ISA THEN PECTI=PEÇTI+ES ELSE FE(TI=POCTI-ES 
BO PUTIPISCT)-PULTII-CPSCT)+IB.PULT)+rIB). CePSETSPUTÇPIGT); PECTII-CPACT;+1B,P2cT;+1B) EN, PSETIPISCT)sPICTIsPUCTI=PELTI NEXT 
518 6=5:6070538 
so 6=1 
| 538 FORT=G TOS:IFZ(T);=1ANDMI(T)=BTHENNEXT:GOTOZIBELSEIFHMI(T)=-BTHENSLBELSEIFZ(T)=1THENNEXT:GOTOZLBELSEIFRND(2)=1 THENNEXT:GOTOZIBELSED 
| 1=8:D2=BsMicT)=PicT)+5:MZLT)=F2LT9+S 
S4B IFY=PécT) THENS9GELSERAAS(K-PI(T))/(Y-PELT))FIFRESÇAAs=<. STHENSZBELSEIFRES (RA) =>E. GTHENSDO 
558 IF X<Pi(T) THENDI=-ES-2 ELSEDI=ES+E 
560 IF TaPBlT) THENDE=-ES- 2: BOTOSBBELSEDZ=ES+2:G0TOEDA 
S78 IF TY<PZlrT) THEN D2=-ES-2 ELSED2Z=ES+E 
88 GOTOSBB 
S?B IF X<FPIÇT) THEN D1I=-ES5-2 ELSEDI=ES+2 
SBB MicTisMicT)+DL:MBCT;=MEcTI+DE:DI(T)=D1:DZ(T)=DE:sNEXTT;GOTOZIA 
di1B MICTo=HicTMplcToeMECTI=NEÇTI+DZCT)=: IFMECT)<SBORMICTI<A THENMA (TI=B:PRESET (MSÇT)-MUCT;IsNEXT:GOTOZIDBELSEIFPPOINTEMIZT)s5MEÇTI)25 TH 
ENAIPELSEPRESETIHAÇTO MUCTI)SPSETAMA CT MET djeMSCTieMiCTosMUCTo=NECTI NEXT: BOTOZLA 
28 M3(T)=MICcT;=MUCT)=HELT):NEXT:GOTOZIA 
438 IFMicçT)=>X-2 AND MicTy=<X+15 AND MEcT)=>T-2 AND MZ2cTo=<r+IiZ THENPRESET (MST) MyçT)9:G0TOBUBELSEMI(T)=B:PRESET(MI3CT) MycT;scNEXTO: 
GOTOZiAB 
48 FORT=1TOS:IFZ(T;=1THENNEXT:GOTOZIBELSEIFXAPICTITHENPI(TI=PILÇTI-ES ELSE PicT;=FI(TI+ES 
658 IFY>PE(TITHENPECTISPE(ÇTI+ES ELSE PEcT;=PELTI-ES ; . 
| 468 PUTÇPISCT) PUCTII-CPICT)+IO.PUCT)+LAS) Co PSETIPUTÇPILCToSo PELTI)-CPICTI+IB. PECT)+10). ENSPSET:PSCT)=PICT)sPUCTI=PECT)2IFRND(12-ES)=1T 
| HENCIRCLECPLCT)+15-PEtT)+5)0S-P:PAINTCPACÇT)+IS,PECT)+SIe 7? 
8/8 NEXT:GOTOZIB 
688 COLORG:FORT=1TOS: IFZ(TI;=iITHENNEXT:GOTOZIBELSEIFY>FPZCTIANDFEOINTÇPLC(TI+S:PZÇT)+11)=5STHENFEÇTI=FELTI+ES ELSEIFPPOINTÇFICLTI+18,.PELT 
)J=1)=5THENPELTI)=PE(T;-ES 
“70 PUTCP3LT)-PUCTII-CPICTI+O.PUGTI+10), Cr PSETSPUTÇPLCT) PECTI)-(PICTI+IB.P2CTI+1B)  ENsPSET:P3(T;=PILCTIEPUÇTI=PEÇT) 
708 IFR.TI>BTHEN?P20ELSEIF FêcT;+5e>Y-15 AND PEcTyese=cr+es THENA(T)=lsMEXTEGOTOZILA 
718 NEXT:GOTOZIAB 
720 R(T)=ReT)+1LFIFROT)>U4UTHENZIBELSELINEL(PiCT)-FELTI+5)9=CPLLÇT)+7.PE(TI+459  PSETENEXTEGOTOZLOA 
730 MlI=PE(T)+5:FORP=PI(T) TO 9? STEP-á:IFPPOINTIR:M19>5 THENPUBELSELINE(PoML)-=cP+á:M1)+PRESETILINEÇPoMI)-(P-arMI) -PSETENEXTEILINEÇPo MI 
j=(P+rá,H1L).PRESET:RÇT)=BeNEXTE:GOTOZIA 
748 IF P>=X AND P=<x+14 AND Ml=>Y AND Mi=<rT+1B THENBYUBELSELINE(P.MI)=(P+&. MI), PRESETESRÇTI=B:NEXTT:GOTOZIÍA 
758 COLORCC:R=A+RT: IFR=<BORR=>30THENRT=-RT:GOTOZ&0ELSEFORT=ITOZ:LINECPICT) PECTI=RI=CPICTI+38. PELCTI=R+DD). PSET. E:NEXT:GOTOZIA 
748 IFR=<BTHENCC=SELSECC=5 
778 GOTOZIB 
| ?B8 R=R+RT:IFR=<BORR=>3B8THENRT=-RT:GOTOPPBELSEFORT=1T0S: IFCC=5THENPUTEFICTI+R:P2LTI9-CFPLCTI+R+DO,FELTI+ia) Cr FPSET:NEXT:GOTOZIBGELSEPU 
TCPICTI+4R-PELTI)-CPICTI+R+DD,PZ(çT7)+10),C.PRESET:NEXT:GOTOZIA 
798 IFR=<BTHENCCs=S46ELSECC=5 
SBB GOTOZIA 
818 COLORCC:R=R+RT:IFR<BORR>28THENSZBELSELINEÇPL (Lo PECIS+ARI-CPI(1)+30. P2CII+R+DD)  PSETeBILINEÇEICI) PECI)AUB-=RI=(PI(1)+3A,P2(I)+UB-R 
| -DD),+PSET-B:6=3:60T0536 
B2B RT=-RT:IFR=<B THENCC=SELSECCOS 
| 830 6=3:60T0538 
B4B POKE454P4, BIPLATASCPLATAS:PLATAS:POKRESSU4PS  BPUTEV MI CU+I Se ri) Cs FSET 
| BSB NMH=NH-1L: IFNH=<BTHENBSBELSEISA 
B48 DRAN"EMI?ZA. PBCSLPBDIRPADILFADIAPEDILPADIRPADILPADIAPEDILFEDIRPADILFAUVIANCSUCCRISOSLBDSRSDSL SDELSERZAUCIAPD2ILFPERIZUZIASFIBELBRAD 
CSLUYUI4GICHICDIU4LE” 
E7A BS=INKEYS 
SBB AS=INKEYS:IFAS=""THENDEBELSERUN 
898 COLORB:DRAN“EMO, 15DE3BFLBEZSRIBFSORIBELBFISRZADUBERSBUZOHI SESB":PAINTIA. 191) 
988 X=18:Y=28:DRAW"EMS, 1ISNDIPERZUBDL SB" :PAINT(O-B):GOTOLU4UA 
910 LINE(O,. 1913-0255. 1971). PRESET 
2 GOTOL4A 
| 138 Y=á:X=14:DRAW"EMLA,- 2NR4BD4UBFUBRMBF 1 ADU4UBF4UBRI LUBU4AL PAHI DUVUBHYUAL4UAHIBUSA" sPAINT(R,B):FPAINTIZSS. B) 
48 GOTO 148 
950 X=4:Y7=178:CIACLE(15S0, 102). 185.8,.9..5. 1º:LINF(5A, 1080)-(0,. 158). PSETILINE(ÇO, 1683-(255,189). FSET,BsDRAN"EMS&O, ISSRIBBESBD7B"sLINE(SA, 
155)-(210,175),.PSET:FORT=ZTOSASTEFPU:CIRCLECIZA,PEB).T.7..BENEXTIPAINTOA. A) 2FAINTÇOB. 156) 
| P&B T=1i:GOTOLIAB 
928 COLOREB:DRAWN"EMA, IBOUUBESARZAF LEBEDSADIALSULILLALESDIBOLZB!=sLINE(ZSS.CB)-tiP6, 1163, PSETILINECESS, 7P8)-(170,160),PSET:PAINT(R:B):PAI 
NT(255,.191):X=6: IFY<SLOBTHENT=14A 
8a GOTDIiiza 
998 X=217=34: DRAWN"EMB, CORCZOFSADPBELBRIDA":DRAW"EMA. SBDILEFZARCIALULGAVELINEÇISA. 138)-(2280,.0)-PSETESPAINTÇO. BosPAINTISSS- 19154 
1886 GOTOL4B 
1818 X=B:7=1553:DRAW"EMS, LELUGOR?BELARSBE LOUBBRIILSBDSSL5SDABGS3AL SAGILALSADZALSA"PEFAINTÇA.ByrPAINTICZSA,. 1860):GOTOL4A 
| 1820 X=4:7=48:DRAN"EMO, SBR76DZBRULUZORBAD7ORLUEDUALSSUZEL4DZALASUPOLU4US"LINEÇIBGA, 108B)-(255, 20) - FPSETELINEÇÃIOS, 14B)- (255,68), PSETSPAINT 
(8.8): FAINT(E5S. 191):GOTOL4B 
1030 HNnB:5Col:650558+200:M0c10B:f=e2h:ES=EGB+2:GOTDLAA 
1B4B X=&:7=58:DRAWN'"EBMB, SO0RIBBEIORIGFIBRSDA4AGIBLIODIALZOUILBLIBHIBLLZA"::PAINTÇE.B):FORT=BTOLB:CIRCLEÇZOS PAT, 7. 65,8, LENEXT:GOTOLY 
[5] 
1858 COLORZ:LIME(DO,.C0)-(15,. 38). PSETELNE-(ÇOS. 38), PSETILINE-(ZO, CO) PSETIPAINTIZO. EU) rá PGET(IS CB) (05, 38): EN GEFORT=1TOSEPICTI=RND 
| (238)+18:P2(T;=AND(00)+18:Z2(T)=B:NEXT:2(4)=1:2(5)=B:Pl(5)=1668:P2(S5)=156:PAINTCZA-20),5.5 
1858 GOTO BSA 
1870 CIRCLE(Z0,20).5.?:PRINTÇZO. 20). 6. 72:GET(15.15)-(25.25)  EM-G:PAINTIZA. 20) 5 S:FORT=1TOS:Z4T)=0:ML(T)=B:NEXT 
1080 IFSC=ATHENPI(l)=3B:Po(i)=66:Plc2)=IMB:FP2(D)=136:Pi(3/=200:P2c3)=17A:PIcMy)=188:P2cy)y=176:PlcS)=104:P2(c5)=148:GOTOPIGELSEPI (1)=88 
| Pã(lyelséásPilçe)slco:PE(e)=1364:P1(3)=70:PE(3)=1740PÃCUo=iLAsFOUu)=i1?ásPicS)=184:F2C.S)=10B:GOTOPPA 
189B CIRCLE(ZO.20)-ó- 6:PAINT(ZO,20)- 8, 6:CIACLE(ÇZO,. 203.2, 7:GET(14,15)=(24.25)3- EN, G:GOTOPSDO 
1188 Z(T)=B:PI(TI=AND(238)+18:PZ2(T;=ANDÇ1SO):IF PPOINT<PICT)-PEcTI)>5 OR PFOINTCPiCTI+Ia.P2cTo)>5 OR FPOINTIFICT)+IO,.P2cT)+10)>5 OR 
PPOINTI(FPICT)-PEtTi+18)>5 THENILBDBELSET=T+12 IFT>STHENIV4BELSELLHA 
1118 DRAW"EM2ZB, 200 ANUYNEUNRUNFUND4CZNOUNLYUNHU":GET(1S, 1559-425, 25) EN. G:GOTOPPA 
1128 FORT=1TOS 
1138 PicT)=RND(18B)+15:F2CT)=RNDÇ191): IFPPOINTCPILCTo- PRcT;250RFPEOINTÇPLCTI+18,FEÇT))>50RPPROINTÇ(PICT)+FEcTI+10)>50RPPOINTEPLCTI+1B.P 
| E(T)+14)>STHENLIIDELSEZ(T)=B:ReT)=B:NEXT:GOTOL4A 
1140 FORT=1T055Z(T)=1:NEXT:Pl(Il)=4Z:P2(I)=156:Plcç2)=llá:F2Co)=148:P1(3)=204:P2(3)=55:R=B:RT=ES-1:00C=7:DD=ES/2:GOTOLBIA 
11538 FORT=S1TOS:Z(T)=1:NEXT:Pi(çiy=30:P2çl)=7D:Plçã)=74:P2(2)=70:PL(3)=120:F2(3)=7B:R=B:RT=E5:DD=ES:GOTDIBZR 
1168 FORT=ITOZ:Z(T)=1:NEXT:Z(3)=0:2(4)=8:72(5)=0:F1(4)=196:FP2(4u)=268:P1Lç5)=185:F2ÇS)=70:F1(1)=100:P2(ç1)/=30:RT=ES=1:R=B:CC=&:DD=ES/2:F1 
(5)=218:PE(5)=2B8:60OTOLB4AB 
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BIÓORRITMO NO CP 200 


Há dias que não tem jeito, dá tudo errado: o pneu fura em pleno congestionamento, você 
chega atrasado àquela reunião e o dólar volta a subir. Para que você sé precavenha 
contra esses dias, o Departamento de Software da Prologica desenvolveu o Biorritmo, um 
programa que demonstra, através de gráficos, as condições diárias do seu estado físico (F), 
emocional (E) e intelectual (Il). 





LO CIEIEIRAEIEIE IE SEIO PESE SE SEIO IEEE ESSE ILE E a7O LET F=(Al-(MI<3))-(AZ-(M243)) 330 RETURN 

20 “x BIOREITMO a 280 LET B=(Fe365)+F/4 540 IF C>.55 AND C<.95 THEN PRINT 
30 “+ PROLOGICA * PO LET M=(306* ((MI+I-(MI<3))- (M2+ “EM BRIXA" 

O “+ CP-200 x 1)- (M2<3)))7/10 290 IF C<.45 AND C>.05 THEN PRINT 
DO IEEE IES E SIE IE IE IE IE ES IEEE IREI E E E 300 LET D=Di-DZ "EM ALTA” 

5O PRINT AT 13,0;"BIORRITMO G.P." S1LO CLS 60 IF C>=.45 AND C<=,55 THEN PRIN 
70 FOR N=ô TO &3 S20 LET WH=ABS (A+M+D) T'ERITICO" 

30 PLOT N,22+20*5SIN (N/32+*PI) 550 GOSUB 400 70 IF C>=,05 OR C>=.95 THEN PRINT 
GO NEXT NM 340 GOSUE 540 "CRITICO" 

100 PRINT AT 20,0; "TECLE ""o"" PAR 350 GOSUE 460 580 RETURN 

A INICIAR" 360 GOSUE 540 990 PRINT 

110 INPUT A$% s70 GOSUE 500 600 FRINT 

120 CLS 380 GOSUE 540 610 FRINT"PROX. DIA DIGITE ""prmn 
130 IF A$<>"0" THEN GOTO 690 3590 GOTO 590 &L0 PRINT"OUTRA DATA DIGITE ""prmm 
140 PRINT"QUAL O DIA DO NASCIMENTO 400 PRINT AT &,0;"SEU BIORRITMO, " 630 INPUT P& 

E” 410 PRINT "DIA: ":DZ2;" ND MES: “sM &40 CLS 

150 INPUT Di j £ 650 IF P&="P" AND DZ2<31 THEN LET D 
160 PRINT "QUAL O MES P" 420 PRINT a=Di+l 

170 INPUT Mi 430 PRINT "CICLO FISICO "; &60 IF P&="P" THEN GOTO 300 

180 PRINT"QUAL DO ANO ?" 440 LET C=(H/23)- CNT (W/23)) E7O IF Pg="D" THEN GOTO 210 

190 INPUT AL 450 RETURN 680 RUN 

200 CLS 4680 PRINT 890 PRINT AT 10,15;"EU DISSE "qr 
alÓ PRINT"QUAL O ANO DESEJADO 2" 470 PRINT"CICLO EMOCIONAL "a n 

220 INPUT AZ 420 LET C=(WN/20)-(INT (W/285) 700 PAUSE 300 

230 PRINT"QUAL O MES 9" 490 RETUEN flo CLS 

240 INPUT MZ 00 PRINT 720 RUN 

250 PRINT"QUAL O DIA 2" 10 PRINT"CICLO INTELECTUAL "; 750 SAVE"BIORRIT" 

260 INPUT DZ 20 LET C=(N/33)-(€CINT (W/33)) 740 RUN 
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serviço Cirandão, da Em- 

bratel, é uma grande oportu- 

-nidade para o desenvolvi- 

mento de uma cultura telein- 

formalizada dentro da socie- 

dade e para o próprio cresci- 

mento da indústria nacional de informá- 

tica.” Esta é a opinião de Fábio Men- 

diretor de Marketing de Computadores 

Pessoais da Prológica, sobre o primei- 

ro Banco de Dados público instalado no 
Pais: o Cirandão. 

“Acompanhando a grande expansão 
que atravessa a telemática no campo de 
teleprocessamento”, salienta Mendia, 
“a Prológica desenvolveu o protocolo 
de comunicação RTTY para acessar di- 
versos serviços de informação, atenden- 
do assim uma demanda crescente de um 
sistema integrado com uma gama de 
possibilidades que permita uma comu- 
nicação completa e satisfatória a todos 
os tipos de usuários, principalmente 
porque os equipamentos da empresa têm 
a vantagem de ser inteligentes””. 

A princípio podendo parecer um ser- 
viço que exija grandes investimentos, 
portanto, acessível a poucos, o Ciran- 
dão é na realidade um sistema que pode 
ser acionado através de um computador 
pessoal, terminal de vídeo ou ainda atra- 
vês de um simplex telex — este último 
só a partir de dezembro. No caso de 
usuários com computadores pessoais, 
estes já deverão estar equipados com in- 
terfaces de comunicação RS 232€, mo- 
dens compatíveis, além do software 
emulador (protocolo de comunicação) 
desenvolvido pelos fabricantes. 


Segundo o eng? George Zelenjuk, da 
Embratel, este serviço público de tele- 
mática complementa e integra outros 
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serviços de telecomunicações já instala- 
dos no território nacional. “Para 1986”, 
afirma Zelenjuk, “prevê-se a possibilida- 
do Cirandão suportar um serviço gate- 
way, Ou seja: um sistema que ligará o 
usuário diretamente a diversos bancos 
de dados nacionais ou internacionais”. 


Possibilidades do Cirandão 


George Zelenjuk estima também que, 
para o biênio 86/87, este serviço estará 
integrando mais de 100 mil assinantes e 
admite não estar sendo otimista, como 
pode parecer à primeira vista: com me- 
nos de dois meses de funcionamento, 
o Cirandão já conquistou mais de 500 
usuários. O interesse pelo Cirandão de- 
ve-se à possibilidade de acesso às mais 
variadas informações, que cobrem áreas 
diversas, desde a medicina, estatistica e 
economia até arte e geografia, entre 
outras. 

A configuração da rede de informa- 
ções do serviço Cirandão é basicamen- 
te a seguinte: o sistema central do Banco 
de Dados é gerenciado pela Embratel 
para armazenamento de informações e 
programas, os quais serão fornecidos 
aos usuários, via terminais ou compu- 
tadores pessoais. Interligando o sistema 
central do BD e os usuários está a rede 
de telecomunicações que, em sua confi- 
guração definitiva, será formada pela 
Rede Nacional de Comutação de Paco- 
tes (Renpac), complementada pelas re- 
des públicas de telefonia e Rede Nacio- 
nal de Telex (RNTX). 

Por ora, para sua implementação ini- 
cial, o Cirandão será acessado exclusi- 
vamente via rede telefônica em seis cida- 
des: São Paulo, Rio de Janeiro, Brasi- 
lia, Belo Horizonte, Curitiba e Porto 


Alegre. Os usuários de outras localida- 
des também podem acessar o Cirandão, 
porém terão que arcar com as despesas 
das chamadas telefônicas interurbanas. 


Fornecimento de Serviços 


Totalmente interativo, o Cirandão 
oferece aos usuários todas as rotinas pa- 
ra sua operação, passo a passo, efetivan- 
do uma interface homem/máquina. Ba- 
sicamente, O sistema fornece os seguin- 
tes serviços: Banco de Informações, 
Banco de Programas, Serviços de Co- 
municações, Armazenamento de Arqui- 
vos de Usuários e Serviços de Suporte 
aos Usuários, além de facilidades de co- 
municação para comunidades teleinfor- 
matizadas privadas. 

De acordo com Zelenjuk, com o tem- 
po outros serviços serão criados, a par- 
tir das necessidades detectadas pela pró- 
pria comunidade. 


Informações e Programas 


O Cirandão possui um Banco dec In- 
formações onde estão disponiveis várias 
Bases de Dados, voltadas para os mais 
diversos setores da comunidade usuária, 
possibilitando uma navegação integra- 
da ao sistema, pois permite aos usuários 
a obtenção de informações complemen- 
tares de diversas fontes, sem o inconve- 
niente de mudar de banco de dados. 

Já o Banco de Programas é um ser- 
viço nacional de transferência on-line de 
software aos usuários, basicamente den- 
tro das seguintes áreas: administração 
empresarial, administração profissional, 
administração doméstica, ciência € tec- 
nologia, educação, lazer (jogos) etc. 

Os programas, via Cirandão, terão os 
mesmos requisitos de segurança de que 





dispõem os programas dos fabricantes e 
software-houses. No entanto, para pre- 
venção de eventuais erros na transmis- 
são, está disponivel um protocolo de 
comunicações, especifico para o Banco 
de Programas, que faz o controle de 
erros. 

Com todos estes dispositivos, o Ci- 
randão, através de seus serviços de co- 
municações e de suas potencialidades 
como instrumento de marketing, consis- 
te em uma nova mídia para a área de 
software. 


Serviços de Comunicações 


Os serviços de comunicações do Ci- 
randão têm as seguintes opções: Servi- 
ço de Mensagem, Quadros de Aviso, 
Mercado Eletrônico, Teleconferência, 
sendo que as duas últimas ainda estão 
em fase de estudo, não-disponíveis aos 
usuários. 

O Serviço de Mensagens consiste na 
comunicação pessoal entre os usuários, 
num intercâmbio de mensagens, que são 
armazenadas nas suas Caixas Postais. 
Estas caixas são distribuídas no ato da 
inscrição no Cirandão: cada usuário re- 
cebe uma, com o respectivo endereço, 
tendo cada caixa postal a capacidade 
máxima de 198 mensagens e tamanho 
individual de 6Kb. O sigilo dos recados 
é absoluto, pois uma vez enviados a um 
usuário, só este poderá acessá-los, sen- 
do que nem mesmo o remetente poderá 
modificá-los ou revê-los. O Serviço de 
Mensagens pode oferecer ainda as se- 
guintes facilidades: Grupo Fechado de 
Usuários, Caixas Postais Subsidiárias, 
Secretária Eletrônica, Arquivo de Tex- 
tos Padrão e Mensagens em Elaboração, 
Multiendereçamento e Endereçamento 
em Grupo. 
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Já disponível aos usuários, o Servi- 
ço Quadro de Avisos permite a comu- 
nicação simultânea de uma pessoa com 
várias outras ou vice-versa. E para au- 
xiliar e prestar assistência aos usuários, 
facilitando seu relacionamento com o 
sistema, foi criado o Sistema de Su- 
porte. 

O Cirandão pretende também ofere- 
cer facilidades para as comunidades fe- 
chadas, sem ferir a filosofia de atendi- 
mento comunitário, independentemen- 
te de segmentações e localizações. Estas 
comunidades fechadas (empresariais, de 
classe, clubes ou associações) poderão, 
desta forma, transmitir e receber infor- 
mações de seu interesse exclusivo, sem 
que fiquem impossibilitadas de acesso 
aos demais serviços públicos do Ciran- 


dão. 


Acessando o Cirandão 


Para acessar e participar do Ciran- 
dão, basta um telefone, um terminal 
TTY ou computador pessoal, um mo- 
dem com velocidade de 300 bps ou 
1220/75 bps, interface RS 232€ e um 
emulador especifico para cada equipa- 
mento, que transforma o computador 
num terminal. De resto, é só solicitar o 
serviço à Embratel. 

A tarifação elaborada pela Embratel 
prevê uma fase de pré-comercialização, 
com validade até 30 de outubro deste 
ano. Assim, o usuário poderá fazer uma 
assinatura mensal que inclui uma fran- 
quia de 120 minutos e 250 mil bytes — 
a cada mil bytes pode-se escrever um 
texto de aproximadamente 200 linhas 
com 50 toques. Se a assinatura for resi- 
dencial seu preço é de Cr$ 2 mil 544 e 
comercial Cr$ 12 mil 720. 

Excedida a franquia, cada bloco de 
1000 bytes custa Cr$ 6 e Cr$ 24 por 
minuto. Caixas Postais e Quadros de 
Aviso não implicarão em custos extras 
quando dentro da franquia, até o tercei- 
ro dia. Se o assinante não ler ou retirar 
sua mensagem neste prazo, pagará Cr$ 
6 por 1000 bytes armazenamento/dia. 

A cada Caixa Postal corresponde 
uma senha, sem a qual o acesso é inviá- 
vel. Entretanto, o usuário pode ter, se 
quiser, até nove senhas subsidiárias a 
Cr$ 634, residencial e Cr$ 3 mil 178, co- 
mercial, para cada senha principal. 

Para os provedores de serviços e/ou 
programas, o processo de tarifação exi- 
ge um armazenamento minimo mensal 
de um Megabyte, a Cr$ 6 por mil bytes 
armazenados/dia. 

A Embratel está confiante de que, 
impulsionado pela intensa utilização de 
serviços ligados à telemática, que se ve- 
rifica em todos os segmentos da comu- 
nidade, o Cirandão crescerá não só em 
demanda de participantes como também 
de serviços disponíveis. A própria con- 
figuração definitiva prevista, que passa 
pelo Renpac, deixa evidente a dimensão 
que este serviço poderá atingir. 


CURSO DE B/ 


Nas lições anteriores aprendemos que | 


i para escrevermos linhas de programas 


podemos usar, por exemplo, o seguinte | 


| comando: 
READY 
> 10 CLS (ENTER) 
ou seja, digitamos o número da linha e 
| depois a instrução seguida de ENTER, 


para qualquer linha. Com o comando | 


| AUTO, o Basic gera o número de linhas À (A | 


| 10 PRINT “PASSAGEM” A 
| 20 A=A+4+I 
| 30 IF A < 6 THEN GOTO 10 


| sem que precisemos digitá-lo. A forma 
| genérica deste comando pode ser defi- 
| nida por: 

| AUTO n,k (ENTER) 

à onde n é o número de “'linha-início”” do 


| texto e k o incremento de n. Exemplo: 


10 CLS 
EFEITO 
AUTO 10,10 


> 20 PRINT “AUTO” 
30 END 


1 CLS 
> AUTO 1,5 EFEITO 


— 6 PRINT “AUTO” 
11 END 


A partir do ENTER, em cada linha, 


passa-se automaticamente à linha se- | 
programa retorna para a linha 5 e se a 
| condição A = 5 não acontecer, o progra- 
| ma soma 1 em À e continua o LOOP. 


guinte com o incremento dado. 
FOR...NEXT 
O formato geral do comando FOR... 





FOR variável = n TO k 


procedimentos 
NEXT variável 





| onde n e k são expressões numéricas ou 


variáveis numéricas. 
Considere a seguinte proporção, da- 
do o programa: 


40 PRINT “ACABOU” 
Se usarmos a instrução FOR...NEXT, 


i teremos: 


5 FORA=1 TOS 
éio PRINT “PASSAGEM” A 
20 NEXT A 


30 PRINT “ACABOU” 





Isto significa que as instruções entre 
FOR e NEXT serão executadas 5 vezes, 


ou seja: até que A=5a partir de A= 1. 


Toda vez que passar pelo NEXT A, o 


Resumindo: a finalidade desta instrução 





! NEXT pode ser definido da seguinte | 
| forma: o | é permitir que uma série de instruções 


esta quinta lição de 
nosso Curso de 
Basic, Marilena 
Occhini Siviero 
aborda os comandos: | 
AUTO e FOR... | 
NEXT, através de 
exercícios simples 
e práticos. 
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SIC LIÇÃO V 


seja executada dentro de um LOOP, um 
certó número de vezes. 

Sendo variável, o comando é usado 
como contador, onde n é o valor inicial 
da variável e k o último valor do conta- 
dor. Analise este outro exemplo de apli- 
cação: 

IO CLS 

20 PRINT “ADIVINHE UM 
NÚMERO ENTRE 1/10” 

30 A=RND(I0) 

40 FOR 1=3 TO SIEP —1 

50 PRINT “VOCÊ AGORA TEM ...”; 
tr CHANCE(S)" i 

60 INPUT “QUAL É O NUMERO"';N 
70 IF N=A THEN GOTO 100 

80 PRINT “VOCÊ ERROU” 

90 NEXT 1 

100 PRINT “GANHOU!!!” 

[10 INPUT “QUER MAIS?(S/N)";R$ 

Perceba que o contador vai do 3 ao 
|. Isso porque o incremento é negativo. 










FOR 27 AHHH NS 
UAM TCHÚ TRI FOR! | 


| NEXT A 


sinal de igual. Exemplo: 








STEP especifica o incremento que, se 


omitido, assume + 1. Neste programa | 


usamos FOR...NEXT para fazer um 
LOOP três vezes, já que na linha 50 o 


| programa indica o número de chances | 
| que o jogador ainda possui, aproveitan- 


do o contador 1, no caso regressivo. 
O exemplo abaixo indica a utilização 

do STEP positivo: 

FOR A=32 TO 256 STEP 2 

PRINT CHRS(A); 


Neste programa, em cada passagem 
pelo NEXT, a condição (32 TO 256) 
é checada, isto é: se A= 256, fim do 


LOOP. Caso contrário, soma 2em A e. 
“o LOOP continua. Sendo assim, com es- 


te incremento, o LOOP é executado 112 
vezes. E não esqueça de um detalhe: na 
primeira execução do LOOP, o conta- 


dor está com o conteúdo igual à expres- | 


são (ou variável) numérica à direita do 


1º vez—> FOR A=32 TO 256 STEP 2 


< | A 
«Lalil-s; 
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1) Fazer um programa que liste todos 
os números pares entre 2 e 100. 

2) Fazer um programa onde o 
operador adivinhe um numero. A 
quantidade de tentativas deve ser 
fixada pelo próprio operador. 
(Sugestão: usando FOR... NEXT 
utilize a variável que contém o 
número de tentativas para limite do 
FOR...NEXT.) 


| 3) Fazer um programa onde seja 


listada na tela (10 vezes) a 
mensagem: “CP 400 COLOR: 
NOVO MICRO DA PROLOGICA”. 


Respostas Ê 





V LXAN 0F 
«VIIDOTOAd 
VC ONDIW OAON 
O “NHOTOD 00% dO, LNIRId 0€ 
0IOLI=V 4O4 0% 
STD OI (€ 
aNa asia 
Ot OLOD NFHLaS, =$A AI OT] 
EA: AN/S)SSIVIN 
UVDOT HANO,LNANI OTI 
c++ OCIVNINHAL 
ODOf ++» LNTYd 001 
| LXAN 06 
«NONAA JIDOAMLNIId 08 
001 OLOD:iNOLHADV 
JID0OA»INTId 
NIHI d=V AIOL 
(ODANH=H 09 
V:«ON/T TALNA ONANAN 
NO SHNIAIAV,, LNANI OS 
«ASJADINV HO oc NdaL 
VHODV JID0A»INTId OF 
[-dalS IOLA=TJO4 0€ 
X'“HVDOI VIdasad 
J904 ANO SADNVHO da 
STD 01 (Z 
V IXAN Or 
V INTHd 0€ 
ZAILSO0TOL 0=V HOH 0% 
| STD 01 (1 





LO CELERALLLSELLELEEELRS RT II ARE 


2o “x BATALHA NAvAL. 
+ 

30 “x PROLOGICA 

x 

40 “» CP-300 CP-SO0 


x 
DO CEREAL 
** 
60 CLS:PRINTE464 ,|CHR$(Z3 13 "BATALHA 
NAVAL "5 
70 GOSUB 1410 
SO CLS:GOSUB 1670 :GOSUB 1460 


90 STR! CLEAR(200):DEFINT A-S 
100 DIM (17,17) ,KP(172,17),EC(17, 
17) ,UNCI1),L.S(11) ,SN$CII),LC(I4) 


110 DIM LEC&,1),LX(6,51),5C(6,2),BL 
$(5) 

1Z0 Tl=0.12 

130 CLS:PRINTE64+44+10, "CAPITAO, SE 
U NOME; POR FAVOR"S: INPUT P$ 

140 PRINTS INPUT" QUAL SERPA” O 6 
RAU DE DIFICULDADE DA BATALHA (1 A 
3) 


i- FACIL 
2- MEDIO E 
S- DIFICIO “; D 
F 
150 IF DF(1i OR DF33 THEN 140 
166 IF DF=1 TH TX=125:8V=53 
170 IF DF=2 THEN TX=S0:SV=2 
130 IF DF=3 THEN TXx=25:SV=1 
190 CLS:SPRINT:PRINT"CERTO. VOCE PO 
DERA” DISPARAR SALVAS DE"SSVS"TIRO 
S":PRINT"E VOCE TERA” UM MAXIMO DE 
“3 TX*TE; "SEGUNDOS PARA DISPARA-LOS 
RI) 
«OO PRINT:EPRINT'NOSSAS FROTAS TERA 
O CADA UMA :“:PRINT 
210 NS=0:FOR I=1 TO 6:PREAD N,k,AS: 
IF DF(2 THEN N=1 
220 PRINT N$5AS; TAB(2S):"COMPRIMENT 
O DE "5K5"QUADRADOS" 
230 FOR J=i TON 
240 NT=NT+K:NS=NS+ISLS(NS)=K:LE(NS 
)=H:5SN$(NS)=A$: IF N>1i THEN SNS(NS) 
=5N$ (NS)+" NO."+STR$E(I) 
SO NEXT J.I 
260 DATA 1,6, FORTA-AVIOES, 1,5,COUR 
ACADO, 2,4, CRUZADOR, 2,3, DESTROIEPR,2 
s 2, SUBMARINO, 3, 1, RARCO PATRULHA 
270 FOR I=1 TO 6ºREAD SC(I,0),SC(I 
31), SCCI,2):NEXT I 
280 DATA 2,1,3,1,1,1,3,2,1,2,25251 
13,2,35393 


290 FOP I=0 TO 4ºREQD BLSCI):NEXT 


I 

300 DATA", SUA PATAZANA DE PORAO", 
“+ MPLDITO SEJA," ",“, MINHA NOSS 
a” y O] 16 

“310 PRINT:GOSUB 1460 


tu 







LHA NAVAL 


320 GOSUB 910 . 

330 GOSUB 1400 2 INFUT"VOCE QUER SU 
A FROTA DISPOSTA AO ACASO" ;As 

340 I=1:]J=1:N6=3:I1IF LEFT$S(A$,1)="N 
“ GOSUB 1100 ELSE GOSUB 1590 :FoOR 
I=i TO 1S5:FOR J=1 TO 15:KP(I,])=KEB 
(IST)ENEXT J4I 

330 GOSUB 1400 :PRINT"VOU DISPOR M 
INHA FROTA AGORA"; :NG=65:GOSUB 159 
O 


360 FOR I=1i TO 15:FOR J=1i TO 15S:KC 

(CI, DD=KBCIsJ)NEXT II 

370 IC=END(3)-1 

380 GOSUB 1400 

US NAVIOS ESTAO EM POSICAO 

837=7 

390 ON ERROR GOTO 1780 

400 PEINT'VAMOS SORTEQR...e!s2IF PR 

ND(0)>).5 GOSUB 1410 :GOSUR 1400 :P 

“INT"EU DISFARO PRIMEIKO!"s2GOTO 5 

30... 

410 I=172:]=]77:N6=65:GOSUB tato :GO 

SUE 1400 :PRINT'SUA VEZ, CAPITAO 

Pã: 

420 FOR NV=1 TO SV:GOSUR 1410 :G0S 

UB 1400 :FRINT'DISFARE O TIFO NO.” 

NY a "e T=0 

430 GOSUE 950 2IJ=KC(I,]J):GOSUR 1 

400 2IF T=TX PRINT'"LEVOU MUITO TEM 

PO FRA” DISPARRAR, CAPITRO. PERDEU 

ESTE TIPO ""z2GoTO São 

440 IF 1I]=99 PRINT'JA” ALVEJOU EST 

E PONTO ANTES, CAPITAO ""s:GOTO 43 

6 

450 IF IJ=O THEN PRINT"TCHUAgAM. . . 

ACERTOU NA OGUA, CPPEITARO !"ssLp=-1 
"GOTO 500 

460 PRINTº"AOCERTOU O TIRO EM MEU "5 

SNS CIJ)SIHMP=HP+I SGOSUB S80 | :CH=CH 

+LILXCCH,O)=SI:ILXICH;1)=] 

“Ia (P=-1:TF CH)3 THEN PRINT BLECPR 

NDCS)-AD)SM dn 

480 LC(IJ)=L.CCIJ)-L:IF LECC(IJ)=O PR 

INTº...E QUE ACARA DE AFUNDAR "ss: 

FOR I3=1 TO CHºIX=LX(IS,0):IX=LXCI 

35 1):GOSUÊE S70 JNEXT I3S:CH=O0:LP=O 

490 IF HP=)NT GOSUB 1410 :GOSUB 14 

dO 2PRINT"GANHOU ESTA BATALHA NAVA 

LL, CAPITÃO “ePgo des sGOSUE 1410 
:GOSUR 1410 :GOTO 240 

900 17=1:]7=7:KC(1,])=99 

S10 NEXT NV 

520 GOSUB 1410 :GOSUB 1400 “PRINT” 

E“ A MINFA VEZ, AGORA."; 

530 GOSUB 1410 :NG=3:FOR NV=1 TO S 

VEGOSUE 1400 :GOSUB L4i0 2IF NH)4 

THEN 780 

3940 IF NH=1 THEN 640 


:PRINT"PRONTO... ME 
112 17=7 


VA, 


n SAR 
= RD o 
ndÃ 


“850 NX=RND(4):GOSUB 









SSO I=RND(15):J=RND(15) 

560 TX=1:3X=3 

S70 IF 1)3 THEN I=1-3:G0TO 570 

SS0 IF J)3 THEN ]=I-3:60T0 SS0 
S90 FOR K=1 TO 6 STEP 2:IF SC(K,IC 
» BND SC(K+1, IC) THEN 610 

600 NEXT K:GOTO SS0 

610 I=1X:]=]X:GOSUB 1290 :IF JP=1 
THEN 550 

620 01=I:0]J=J:LI=I:LJ=J:IF KP(I,9) 

=) THEN 220 

630 KH=KP(T,T)SLK=LS(KH):GOSUB 148 

O :GOTO S30 

640 PRINT'DEIXE-ME PENSQR..."; 

:GOSUB 12 
90 :IF JP=1 THEN 650 

660 DI=ARSCI-LI):DJ=ARBS(J-LJ):K=0 
670 K=K+1:1X=0I+K*DI:IX=0I+K*DI:IF 
1X)15 OR JX315 THEN 490 

630 KK=KP(IX,]IX):GOSUB 1350 ZIF JP 

=0 THEN 670 

690 SI=IX-DI:S]=]X-DJ:K=0 

700 K=K+1:IX=01I-K*DI:]JX=0]J-K+*DJ:IF 
IX(1 OR JX(1 THEN 720 

710 KE=KF(IX,)X):GOSUE 1350 :IF JP 

=0 THEN 700 

720 El=IX+DI:EJ=]X+DI:K=0 

730 IF SQR((SI-EI)*(SI-EI)+(SJ-EJ) 

*(SJ-EJ))CLK THEN 650 

740 IF KP(I,])=0 THEN 820 

750 IF LE(1,0)=1I THEN SI=I:EI=I:IP 
LE(1,1)4] THEN SISLE(1,1):EJ=] EL 

SE SJ=J:EJ=LE(1,1) 

760 IF LE(1,1)=] THEN SJ=J:EJ=J:IF 
LE(L,0)(I THEN SI=LE(1,0):EI=I EL 

SE SI=I:EI=LE(1,0) 

770 BOSUE 1480 :LI=1:L]=J:GOTO 830 


780 IF RND(0)).5 THEN 800 
790 I=SI-DI:J=SJ-DJ:GOSUB 1290 :IF 
JP=1 THEN S00 ELSE IF KP(T,J)=0 
THEN 800 ELSE, SI=1:8]=]:GOTO 810 


800 I=EI+DI:JSEJ+DI:GOSUB 1290 2IF | 


JP=1 THEN:790' ELSE IF -KE(I,3)=0 
THEN 790 * ELSE EI=I:EJ=]:GOTO 210 


810 LI=I:LJ=]:GOSUB 1480 :GOTO 830 


820 .PRINT"TCHUARA. ..!!!":KP(I,7)=9 
9:GOSUB S60 

830 GOSUB 1410 :NEXT NV:GOTO 410 
840 GOSUB 1400 :INPUT"QUER ME ENFR 
ENTAR EM OUTRA BATALHA" ;A$ 

850 IF LEFTS(A$,1)="S" THEN CLS:RE 
STORESRUN 80 ELSE CLS:PRINTE40O, 
“FUGIU MAS EM BREVE NOS ENCONTRARE 
MOS ":C44, "NUMA NOVA BATALHA... RH 
+ AH! OH! AHHH! “:FORI=1 TO 1000:NE 
XTISCLS:STOP 

260 SET(4%(I-1)+NB,24(3-1)42) :RETU 
RN 

B70 RESETC(4IX-1)+NB,2%(IX-1) 42): 
TURN 





Este jogo é, no mínimo, emocionante. Nele você disputará com seu micro uma batalha naval 
no escuro, OU Seja: você não verá a frota inimiga e terá um tempo limitado para 
cada disparo. Todas as informações necessárias para jogar serão fornecidas pelo computador. 


ES0 POR IX=-i TO 23SET(4mCI-1)4NGe  LIL!“I2FOR JX=i TO NXIISLE(IX,0)37 1450 I=LiiJ=LJoLeRETURN 


IX 24 (T=1)42) ISETCUACI-1)ANG+IX,2% =LE(IX,1):GOSUB 890 NEXT Jx:LP=o 40 ft d Edetad RETURO 

(I=1)+23) NEXT IX:!PETURN “GOTO 1130 1450 l=1.1: J=L.]+ 1: RETURN 

890 FOR IX=-1 TO Z:RESET(4+(I-=1)+4N IZi0 IF NX(LSCNN) THEN 1140 TAHO: PRINTO SGA LAELO APERTE EO 
CEIX.De(T-1 AD) SPESETISACI-L)ANG+AI 1220 FOR JX=1 TO NX:KPILE(IX,0),LE ER TECLA PARA CONTINUAM 
X,24(]-1)+3) ENEXT IXIRETURN (3X, 1))=NNINEXT IX ado AP INKEV$="" THEN 1470 ELSE R 
200 LP=PDINTOS*C1-1)+NG, Z8(J-1)+2) 1230 GOSUR 1400 :PRINT"O.K., ESTA" pedi 

:FETURN | o COLOCADO. “ 1490 NH=NH+1:HC=HC+1 :LS(KH)=LS (KH) 
910 CLS:FOR I=1 TO 127:SET(I,O):SE 1240 NEXT NN:GOSUB 1400 :PRINT"TOD =1:KP(I,T)=98:LE(NH,0)=I:LECNH, 1)= 
TCI.32) NEXT 1 OS OS NAVIOS PRONTOS PARA O compar | | 

920 FOR J=0 TO 3S2:SETUL, 1) :SET(&4, E 11" ZRETURN 1490 IX=1:]JX%=]:GOSUB B70  “PRINTOU 
Jp) :SET(127,]J) :NEXT 1 ' 1250 JP=O:FOR 13=-1 TO 1:FOR J3=-1  M IMPACTO NO SEU "GSNSCKHIO so 

30 PRINTOZAO," "sP$;" "s:PRINTESO TO L:IF KP(1+13,]+]3)00 JP=1:RET 1500 IF LS(KH)O RETURN E 

2," COMPUTADOS "5 :RETURN. SO  urn ' 1510 PRINT"SEU “:;SN$(KH)3" BFUNDOU 
940 LP=POINT(441+3,2*]+2) RETURN 1250 NEXT 13, I3:RETURN '":2GDSUB 1410 Ss 
os GOSUB SEO :ASSINKEVSIT=TALIPR 1270 JP=0:FOR 13=-1, TO 1:FOR J3=-1 1520 FOR Ii=i TO NHSISLEtILsOMEdEL 
INT €Z35, INTCTATO)S IF T=TX RETURN TO 15IF KB(I+13,]7+]3)()0 JP=isRET  E(T1,1):KP(T,])=-L:GOSUB 890  sn06 
960 IF Aft='"" THEN IX=1:]X=]:GOSUR URN | UB S60 | :NEAT Il: NH=0 

S70 GOTO 950 1280 NEXT 73, I3:RETURN 13530 IF HCCNT RETURN 
970 NC=ASC(AS):1I=1:]]=] 1290 JP=1*KK=KEP(I4I) 1540 GOSUE 1400 :PRINT"EU GANHEI A 
80 IF NC=90 ]JJ=]I-1:G0TO 1040 1300 IF KE)/90 RETURN BATALHA | 11105 E GOSUB 1410 | 
990 IF NC=88 1]=3+1:G0TO 1040 1310 FOR I3=-1 TO 1:FOR ]J3=-1 TO 1 1550 INPUT” VOCE QUER VER US M 
1000 IF NC=46  II=I+L:GOTO 1050 :1X=1+13:]X=]+]3 EUS NAVIOS ":AS:IF LEFTSCAS,1)="Nº 
1010 IF NE=44 II=I-1:G0TO 1040 1320 IF IX(O OR IX)L6 OR Ixto OR 3 THEN S40 E 

1020 TF NC=153 ES=1:PETUPN *)1& THEN 1340 1560 GOSUR 1400 !PRINT"O.K. AQUI E 
1030 GOTO 10SO 1330 KK=EP(IX,IX)4IF KK(O RETURN STAO ELES 1":NG=65 

1040 IF JJ(1 OR 1])15 THEN 1080 1340 NEXT J3,13:IJP=0:RETUEN 1570 FOR J=1 TO 15:FOR 1I=1 TO 15:1 
1050 IF ILI(<i OR II%15S THEN 1080 1350 JP=L:IF Kk=99 FETUEN F KCCI,1)00 AND KC(I,])(90 GOSUB 8 
1050 IF LP=O THEN IX=1:]X=]:GOSUB 1340 FOR 13=-1 TO 1:FOR J3=-=1 TO 1 80 l 
270 FLSE GOSUE 250 :*IyY=IX+13:]Jy=]X%+]3 1580 NEXT 1,]J:G0SUB 1450 “GOTO 840 
1070 I=I1:]=]]:GOSUB 900 :GOSUR 9 1370 IF IY(O OR 1IY)16 OR Jy<O OR 3 ne 
hO Y)1L4 THEN 1390 1590 GOSUR 1410 :GOSUB 1400 :PEINT 
1080 ÍF PEEK(14463))0 THEN 980 1380 IF KPCIY,JY)CO PETURN "DEIXE-ME PENSAR e. 5 E rei 
LOGO GOTO 950 1390 NEXT 73, 13:JP=0:RETURN 1400 FOR I=1 TO 15:FOR J=1 TO 1S:k 
1100 GOSUB 1400 :PRINT'VAMOS COLOC 1400 PRINTES96,CHRS(31); RETURN aca sale dO. NE 
AR SEUS NAVIOS, CAPITAO "sP$::GOSU 1410 FOR ID=1 TO SOO:NEXT ID:RETUR COEN ane ri 

B 1416 à q 1520 TF PND(0)).5 THEN Ii=END(IS-L 
1110 GOSUR 1400 :PRINT"DIRIJA O PO 1450 I=LI+1:J=L J: RETURN FA ad SRA fa 
ATh TE PIE NMN)-15E O Lãá40 

NTO LUMINOSO COM AS TECLAS 4 : 

CHAS E APERTE (ENTER) PAPA O ENEA ia 1430 Ji=RND(1LS-LS(NN)-1):T1=END(IS 























p:I1Z=I1:Jé=Ji+LS NNI-I 
1440 FOR I=1l1 TO IZ:FOR J=J1i TO Jz 
:“GOSUB 1270 ZIF JP=1 THEN 1630 


Res | 

1120 FOR NN=1i TO NS 

1130 NX=0:GOSUB 1410 :«GASUB 1400 *: 
PRINTICOLOQUE -SEU "sSNSCNN)S" (CO 
MPRIMENTO DE";LS(NN)5"QUADRADOS)" 3 
1140 T=0:GOSUB 950 :GOSUB.SSO SL 
P==1:NX=NX+L!LE(NX ,0)=IºLE(NX, L)=] 
1150 IF NX=1 THEN 1190 

1160 LI=LECNX-1L,0):L]=LE(CNX-=1,1)21 
E I=LI AND J=LJ GOTO 1200 

1170 IF CI-LIN*CI=LIS+C]-LI)*CI-LIO 
141 GOTO 1200 

1180 IF IX)LE(1,0) BAND JCLECL,1) 
BOTO 1200 

1190 GOSUE 1250 “IF JFP=0 THEN 1210 


À 


k + Visa 





vuta 
vp 


) 


- pb 1) 


1200 GOSUR 1400 :PRINT"NAVIO ILEGA 


EE o 


“fa 


a nai 
“- 


[5 


a: 


ado, sp Ds. 


- CS 
8 “rea gp PRE um te = 
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BATALHA 


1 


Il 


em] DD RRS] 

DR A ERA 
Eritrea 
catasd PRAIA =] 


4 








HH 
HH 





NAVAL 


1l&50 NEXT J, I*FOR I=Ii TO IZ:FOR J 
=J1 TO JZ2:KBCI,J)sNN:IF NG6=3 GOSUR 
330 

14860 NEXTIJ,I:NEXT NN:PETUPN 

1á70 PRINT'"L. OS NAVIOS PODEM SER 

COLOCADOS NA VERTICAL OU NA HOFIZO 

NTAL 

Logo PRINT" MAS NAO EM DIAGONAL . 
ELES PODEM ENCOSTAR NAS EOFDOS, 
L690 PRINT" MAS NHO EM OUTROS NA 





| ni | ista n 
leinformática conquista nc 
Ela esso a vários bancos de 


possibilidade de ac 


| ivados ou públicos, cc 
dna pla A Prológica Microcomputadores, 


pioneira nesses serviços, 


ovos espaços com q 


como o Cirandão 


desenvolveu um 


protocolo de comunicação, 


ção de memória, tão logo 
receba do sistema central o 
código “7D64H” O código 
“TD65H" deverá provocar 
interrupção da transmissão 
da carta por parte do proto- 
colo de comunicação. Será 
enviado pelo sistema central 
quando a carta exceder o li- 


VIOS, NEM MESMO NOS CENTOS." destinado a gerenciar a liga- | cepção de programas, quan- | mite de 6Kb. O recebimento 
t700 PRINTOZ. EU E VOCE NOS ALTERN | ção de microcomputadores | do do envio/recepção de ca- | deste código “7D65H” pelo 


AREMOS EM DISPARAF TIPOS. UM NUMERF 
o" 

1710 PRINT" MAXIMO DE TIROS POR 
E UM LIMITE DE TEMPO PRFA" 

1720 PRINT" CADA TIRO SÃO FIXADO 
S DE PCORDO COM O GROU DE DIFICULD 
ADE." 

1730 PRINT"3. VOCÊ PODE LOCALIZAR 

OS TIROS PELAS TECLAS *A' E tz” 

(PARA BAIXO E PARA CIMA FESPECTI 
VAMENTE),E PELAS TECLAS “(* E *3* 

(PARA ESQUERDA E A DIFEIFA RESPECT 
IVABMENTE). DO ATINGIF A POSICAD D 


SALVA, 


ao Serviço Público Ciran- 
dão, da Embratel (veja ma- 
téria na pág. 10). 

O protocolo de comuni- 
cações desenvolvido pela 
Prológica apresenta algumas 
facilidades especiais que per- 
mitem a transmissão/recep- 
ção de programas, o envio 
de cartas pré-editadas ou 
ainda a compressão/descom- 
pressão de brancos. Detalha- 


racteres pertencentes à faixa 
de 00H a 1FH e 80H e FFH. 

Compressão/Descom- 
pressão de Brancos — Esta 


facilidade permite uma me- | 


nor sobrecarga de tarifação 
por volume, causada pelo 
tráfego de caracteres bran- 
cos. Caso esteja presente no 
emulador, o sistema central 
poderá fazer a transmissão/ 
recepção de telas com com- 


protocolo ou o envio do ca- 
ractere “ODH”" para o siste- 
ma central significa que o 
procedimento normal deve 
ser restabelecido. ; 

Impressão Paralela — E 
recomendável que os dados 
enviados pelo sistema central 
aos terminais de video e mi- 
crocomputadores possam ser 
enviados também para a im- 
pressora, que os imprimirá 


SEJAD: FERTE CENTER" PAR P a ; E - . 
SAS EI EE RS no abaixo cada uma dessas | pressão de brancos. paralelamente ao preenchi- 
1740 PPRINT"4. O JOGADOR QUE AFuNDa | caracteristicas especiais, Transmissão de Cartas | mento da tela desses termi- 


» MOIS RAPIDAMENTE A FROTA DO 0PO- 
1750 PRINT"  NENTE SERA” O GANHAD 
DD a 

1740 PRINT"EBDA SOPTE. 
SOL OTIMO JOGADOR t''; 
1770 RETUEN 

1780 CLS:PRINT'"SINTO MUITO... 


SHIBO QUE EU 


AS 


Protocolo de Transmis- 
sãao/ Recepção de Arquivos 
— Esta facilidade deverá ser 
chamada quando da trans- 
missão/recepção de progra- 
mas, solicitada através do 
Serviço de Banco de Progra- 


Pré-Editadas — Caso o usuá- 
rio utilize editor “off-line” 
no microcomputador, as car- 
tas editadas deverão ter até 
6Kb de tamanho com código 
OAH(IOD) para fim de linha 
e ODH(13d) para fim de car- 


nais, executando o controle 
de fluxo dos dados recebi- 
dos. Opcionalmente, os da- 
dos enviados pelo sistema 
central nas telas dos termi- 
nais poderão ser armazena- 
dos paralelamente em me- 


TTUACAO FICOU MUTM FICIL PAGA 1 se Sa O Re E à 
TM Ai RR PD AA COD isto: te ta. O emulador deverá enviar | mória secundária (disco ou 
1790 PRINT"VQMOS TENTOQP OUTRA. O. Transparência — Neces- | a carta, armazenada em dis- cassete), para posterior im- 


Es. ?":BOSUB 


CI RELTEE 


END 


=, E 
“FUN SO 


Lisidi) e 


1800 





sária para a transmissão/re- 


Você já decorou todos os 


números de código das men- | 


sagens de erro do DOS 500º 
Recorre ao manual a cada 
vez que, inesperadamente, 
uma delas surge no visor do 
seu CP 500? Já precisou for- 
matar um disquete para li- 
vrar-se de um programa pro- 
tegido por senha, que você 
esqueceu ou não conhecia, 
visando ganhar aquele espa- 
cinho que faltava nesse dis- 
quete para O seu programa? 


co ou em determinada posi- 


mensagens de erro completas 
e diretas. O segundo, para 
apagar qualquer arquivo. 
Sempre em DOS 500 Ativo, 
digite: 


PATCH *4(ADD=4E28, 
FIND=20,CHG-= 18) 
PATCH *3(ADD=4F6C, 
FIND =38,CHG= 18) 


Para os programadores 
em Basic, uma dica sonora, 
bem simples, que usa uma 


pressão. 





de cada bit emitido para gra- 
vação em fita. A numeração 
de linhas apropriada resul- 
tará numa sub-rotina bem 
aproveitável. Para os CP 300 
e CP 500, versão cassete, de- 
ve ser utilizada a linha 100º, 
10 CLS=PRINT(450; 
“TESTE DE AUDIO” 
20 FORI = 1T0128:GOSUB 
100:PRINT''*""::NEXT: 
END 
100 DEFUSRI = &H0264: 
4 =USRI(0):RETURN 


sub-rotina em ROM, sem al- 100*POKE16526,100: 
As dicas deste número | terar nenhum dos registrado- | POKE16527,2:X = USR(0): 
pouparão seu tempo nos | res. O som ouvido após o | RETURN 
dois casos que citamos. O | aparecimento de cada aste- Até o próximo número. 


primeiro PATCH é para 


risco no vídeo é o resultante 
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PEGP 













FE 


geme 


Macrof: um novo 
aplicativo no 
mercado 


Para gerenciar bancos de da- 
dos, editar gráficos e textos, 
com acentuação conforme as 
regras da língua portuguesa, 
Almir Joaquim de Souza, da 
Universidade de Goiás, desen- 
volveu o programa Macrof, es- 
crito em linguagem de máquina 
que atende aos usuários do CP 
300 e CP 500. Com capacidade 
para 73 campos de registros, ge- 
renciamento virtual de arqui- 
vos, procura e ordenação por 
qualquer campo, o Macrof tra- 
balha direto no disquete inteiro, 
possibilitando saber previamen- 
te quantos registros podem ca- 
ber no disco. O Macrof está 
sendo comercializado em Goiã- 
nia pela Átila Anformática, tel.: 
(061) 223-1300. 


que você pode retirar 
e levar para 

sua casa ou 

empresa para 

usá-lo à vontade. 


pai 
“ 
pet 


| 


na 





A 
l 
qi 


Mais um revendedor 
Prológica em 
Campinas 


Campicom, este é o novo re- 
vendedor da Prológica em Cam- 
pinas, que conta atualmente 
com 42 funcionários e duas fi- 
liais: em Ribeirão Preto e Poços 
de Caldas. Programas para a 
área rural e aplicativos para o 
setor público, como contabili- 
dade pública e controle de divi- 
das ativas, são alguns dos pro- 
gramas desenvolvidos pelo de- 
partamento de software da Cam- 
picom. 


E..., mais de 4000 originais 


cosas 


Cursos 


Mensalmente o Instituto Sul- 
livan promove Cursos Regulares 
de Linguagem Basic (normal e 
avançado), Cobol, Fortran e 
Assembler e Cursos Especiais 
Aplicativos: CPM, Visicalc, Vi- 
siplot, Visifile, Supervisicale, 
Multiplan, DB/Master, Editor 
de Textos, Sistemas de Conta- 
bilidade para Micros, Sistemas 
Operacionais. Maiores informa- 
ções no próprio Instituto, pelo 
tel.: (021) 541-9333. 


Em outubro e novembro o' 


NETC — Núcleo de Ensino de 
Tecnologia e Ciência — estará 
promovendo cursos de Eletrô- 
nica Digital, Computadores e 
Microcomputadores Digitais, 
Hardware de Sistemas Baseados 
no MP Z-80, Hardware de Tele- 
processamento, Software de Te- 
leprocessamento, Amplificado- 
res Operacionais 1, Interfaces 
A/De D/A, Sistemas de Comu- 
nicação via Fibra Ótica. O tel. 
do NETC é (011) 220-1989. 


E di TE 
IM ih Et, 7 
r Ai, Na mA E PS er TA Apa ra E 7 ERA A RMT? o ras 
m 


CP 500 no 
Planetário 


O Planetário Municipal de 
São Paulo recebeu recentemen- 
te da Prológica Microcomputa- 
dores um CP 500 e uma impres- 
sora P 500, que serão utilizados 
no estudo de astrofísica e ciên- 
cias correlatas. De acordo com 
o físico Irineu Varella, que diri- 
ge uma equipe de pesquisadores 
do Planctário, o CP 500 tam- 
bém será usado para controle de 
arquivos, cálculos financeiros, 
cadastro de alunos e cursos. 


Educacionais 
Profissionais 
Científicos 


Para os principais CP 300 

micros do mercado: CP 500 
TIMEX/SINCLAIR, TRS80 Mad. IH 
CP 200 Sistema 700 


Você pode consultar pessoalmente os catálogos de Software ou solicitar informações pelo Correio. 


- ua 


Av. Brigadeiro Faria Lima, 1390 - 8º Andar - Cj. 82 - CEP 01452 - Tels.: (011) 814-0682, 813-6407 e 210-1257 - São Paulo - SP 


apoio I NORMA x 








ar 








om o microcomputador, multiplicar tornou-se uma gostosa 
e divertida brincadeira. Dando sequência aos programas 


educacionais publicados na GP 8 e 9, neste número de 

nossa revista estamos publicando um aplicativo que 
propõe à criança responder a algumas operações de 
multiplicação. Se a resposta for correta, a face, que nós já 
conhecemos, sorrirá. Caso contrário, ficará decepcionada. 





LO CE re 


20 “+ EDUCACIONAL III +” 
30 “+ PFROLOGICA + 
GO Ox CP=-300/CP-S00 +“ 


DD O E 

0 CLSIPRINTES*54+20, STERINGE (20, 13 
1)5 

70 PRINTEO7*64+24, "MULTIPLICAÇÃO": 
30 PRINTOS*64+24," P/ 1.GRAU"; 


90 PERINTEG+54+20,STPRING$S(20,131)5 
100 GOSURB BO 

110 €LS 

Lato 


130 CLS:GOSUR 4A5S0 

14) B=PNDLS9) :E=END(S):C=END(9):D= 
(B+10)+C: IF A(<D GOTO 140 

150 Po= e 2Q4="=H8" ENS=CHR$(191) 
160 PRINTES33," PRINTUSING PS:A: 
170 PRINTESP6,""F:PRINTUSINGOQS:D; 


180 PRINTOSASO,!===" = 

190 L=526:GOSUEB Sao sHt=Ls 

200 PRINTOSZA, HG: :L=525:GOSUB 520 
eJt=ls 


SS Hi=T4+Hã:PRINTOS2S,Hg$; 
2) TF tAsC)<ICO GOTO 250 
230 L=524º:GOSUR S20 Jal, & 
240 Hb=TE+Hb:FPRINTOES24,HE; 
add L=S5389:60SUB SZ20 :G$=LS 
260 PRINTESS9, CE; 

270 L=532:G0SUB 520 :“Tg=ls 
280 Ef=1t+6Ct:PRINTOeSS8S,6S$; 
290 TF Baici0Õo GOTO 320 


300. L=S527: GOSUESZO 1$=L%$ 
310 G$=15+6$5:PRINTESS7,6S: 
320 PRINTRSAS0,!====— Us 

330 L=718:60SUB 520 “I$=ls, 


ETÍE 


E: 
350 PF 
|.= 


VALCGE)+1O+VAL (HE) 
REA Alado 11%5 

ETEL : GOSUB nda to) 
370 RÉ bo 

SU PRINTEVIZ a Tb: 

5940 TF PlIOO GOTO 420 
400 [=715:GOSUE S20 
410 Th=68+1% 

420 PRINTEZLA, IS; 

430 IF PX1000 GOTO 460 

440 PRINTO71S,",";:L=714:GOSUB S20 


«Bf=1.5 


“G$=L% 


:6$=1.5 
450 T1t=G&+I& 


4650 PRINTeZ1L4,""SSRRINTUSING" A, Ha 


"sVALCISISIPRINT! = SUA FESPOSTA 
470 PRINTE77S, "MEsPRINTUSTNGE, 4EM 
"3 (AXD)S5PRINT! = RESFOSTA CORRE 
TA! 


“So IF VAL(I$)=0*D GOSUR 610 sELS 


E GOSUE &30 


490 FORY=1 TO 2500:NEXTX 
300 GOTO 120 
3910 END 


420 * 


IJ390 PRINTEL. HE: 
540 FOR i=i TOS 
to” GOTO 400 
3990 NEXT X 

S60 PRINTeL," "3 
S?O FORX=i TO 15 
““"THEN GOTO 400 
são MEXTX 


"LE=SINKEYSIF L$C) 


SPO GOTO 530 

600 RFETUEN 

LO 

bao * FACE FELIZ 


650 P=215:FORkK=1TOZ:PRINTEP,HS(XO; 
*PRINTÉZIO, MULTO BEEMMM 1Uh111 
5P=P+á4 NEXT X 

&4o RETURN 

650 * FACE NATUFAL 

&&0 P=215:FORX=1 TO Z7:PRINT GP,NSO 
X)J:PRINTeZLA, "QUAL E” O RESULTADO 
PPP IP=P+SSINEXTX 


670 RETURN 


20 * FACE TRISTE 
90 P =215 :FOR X=1 TO F:PRINTeEP,S 
F(X)S:PRINTE9PLA, "LAMENTAVELL 1111 


“E P=P+64:NEXT X 
700 RETURN 
710 * DATA PARA FACES 
720 DATA 32,32,32,176,140,140,1314 
Bl tals 13 Sais i ABL SÃO; 
140, 176,32,32,32,52,32,184,131 


1561 
32,144, 160, Sade aa ER EA 15 al 
É | 160,52, 32,131,164, 11454, SG, 168, 149 
(Ss SA DE 41350, 129,5 SR 1S2 13 


Edo JoRT Las SO O Ra 1501167, 32 
730 DATA 14 ádsda days do SE vI2 
Doar estro ram Se dada dad 

ardor das 149, 138,144, Sess2sisi, lãs, 
14443 Sesdarde Ss SL 160, Sos Il 
31 152,32,32,154,32,32,130,137,164, 
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L$=INKEYS:IF L&. 





175,1764,130,131,131, 
131,129,32,160,176, 140, 131,32,32 


131,131, 


40 DATA 32,32,32,32,32, 131, 131,13 
1; 140 1140, 140, 134, 13L, 1314, 13 


= pu, a PE) 
1,32,5 SE Sds a A = A 


750 DATA 32,32,32,176,140,140,131, 
151,131,131,131,131,131,140, 
140,176,32,32,32,32 

760 DATA 32,184,131,32,32, 160,144, 
Jada doIE são 1L&0O. 144,32,32 

1151, 164, 144,32 

770 DATA 1698,129,32,32,32,32,32,32 
192,/921952/92,352,/32,32 ,) 52,924 
dosLó?P, SA 

Za0o DATA Td Dado S aa 
13646,143.132,32,32 
Esdcsdas LHS 

790 do nd DEDO SRI RD RsISASAA 
EA 32, 154,3 

E) DATA 32,130,137,164,176,32,130 
dardo IL dA VIA 13019024 160,17 

8 140,13, Sos SE 

olÓó DATA d2,952,32,32,592,131,131,13 
1,140,140,140,134,131,131,13 


14 32 RA EA Sa DA 
7 


220 DATR 92,32,32,176,140,140,131, 
131,151,131,131,131,131,140, 
1 Os 176,58 Sê: Se E] Se 


1329523 
TES EAR ás 53 


S30 DATA 32,18 34,131,32,32,152 s164s 
32,52,32,32,32,152,164,32,32 
,9151,164,144,32 

SMO DATA 168,1279,32,32,32,32,32,32 
1543 SEI SA 1d dA Sds SB 92, SE 
24168; EA 

oO DATA 149,32,32,32,32,32,32,324 


1 1 
136,131,132,32,532,32,32,32,3 
2,32,32,149 
ES DHTA 135 144,32 ,324. dessagl7á,l 
di 140, 140, 140, 140, 164, 17645 

Esdosda sãos 154432 
S70 DATA 32,130,137,164,176,131,32 
Saad SEIA 3,17 
bsj140,131,32:. SE 
550 DATA 32,32,32,32,532,131,131,13 
l. 15091404 140, 134, 131; 131,13 
Ls II SEA EAR Sos SE 
390 CLEAR 1000:DIM A(Z0),HS(7),NS( 
Ia SECT) 

900 FOR X = 1 TO Z:FORYE 1 TD 20:P 
EAD AEMSCMO) HE CO) +CHRECA) ENEXTYINE 
XTA 


q So sds, 16 


710 FOR X = 1 TO Y7:FORY = 4 TODOS: 
FEQD PB: NEUCxI= INBLXIrCHRECHS LI NERXTY: 
MEXTY 


920 FOR X = 14 TO 7:FORY = 1 TO Za: 
REMO P:SG(XI=SS(MOACHRS CB) NEXTY: 
MEXTX 

930 GOTO 120 





ste programa foi desenvolvido por Carlos Alberto da Silva Pinto (Agudos-SP) e permite o cadastra- 
mento de todas as obrigações que você tenha diariamente, no período de 40 dias, com opções 
de consulta, inclusão, complementação e gravação. 


DE TESS 
a PROGRAMA USUARIO + 
o CH PROLOGICA . 
4 “+ LP-Z00 + 
oq rr a e 
7 LET T=0 


1Ó LET NÓ 
20 DIM H$C2) 

30 DIM B&(g) 

4) DIM CElZ) 

So DIM DECSO) 

bo DIM ESSO) 

oO DIM FE(30) 

So DIM 6$50) 

90 DIM X$(3) 

too DIM Hétão, 204) 
410 CLS 

iz0 PRINT TRE 10: 
130 FRINT. 


“AGENDA DIARIA” 


719411 


140 PRINT "1 = INCLUSÃO" 

SO PRINT "2 = COMPLEMENTAR DADOS" 
tãO PRINT "3 = CONSULTA 

1740 PEINT "4 = SALVAR DADOS" 

120 PRINT AT 19,05 "ESCHA UMA DFCA 


(qt 

190 LET Ze=INEEYS 

200 LET 0P= CODE 2Z$%-28 

210 IF OP(4 OR 0P)4 THEN GOTO 
220 BOTO 500+*0P 

são LET CT=N+1 

s40 GOSURB SO0O 

SãO TF CT=N+2 THEN LET N=N+1 
430 PRINT AT 20,0:"DIGTE ENTER P/ 
MOVO TMCLUSAO" 
540 PEINT HT dl,6:"0U M PBORA DU MEN 
E Ed 

SoU LET LZt=INKEEYS 

5640 IF Z$=CHr$ 1158 THEN GOTO Silo 
S70 IF Z&="M" THEN GOTO tio 

3990 GOTO São 

1000 E€LS 

1005 LE T=1 

iúio GOSUE 1500 

1015 LET Dg=H$(1,7 TO 56) 

loZo LET Eb=H$01,97 TO 106) 

1025 LET F$=HE(I,107 TO 1565) 

1030 LET Gft=H$(1,157 TO) 

1090 GOSUR S130 

1100 LET T=0 

1110 PRINT AT Zo,OÓ!"DIGITE ENTER P 
* NOVA INCLUSÃO! 

liiZ PRINTÃAT Zi,6:"0U mM PARA O ME 
NLM 

1115 LET Z$=INKEYS 


190 


1120 IF Z$=CHR$& 113 THEN GOTO 1000 
j12Z5 IF Z$="M" THEN GOTO 110 


1130 GOTO 1115 

1200 LET HElT)=A8+B8+0C5+DF+HEF+F$+D 
+ 

1210 RETUÉEN 


So) CLS 

1510 PRINT AT lo, óos"QUAL O DIA 2º 
1520 INPUT Og 

1530 PEIMT ATiIO,OS"QUAL DO MES 9" 
1540 INPUT E$ 

15345 LS 


LSSO PRINT A$5"/"3B45/84" 
1560 FOR I=1 TOM 


S70 IF HEI, TO 2)=A5 AND Héti,3 T 
O 4“)=B& THEM GOTOL&LO 

1580 NEXT I 
1590 PEINT 
1595 IF 


"PEGISTRO INEXISTENTE" 
T=1 THEN GOTO 1100 


L1á00 GOTO 1490 
L&LO CLS 
1620 PRINT TOR 10:"PEGISTRO N “4I 


1430 PRINT HT Z,v0: "DIA ! pe 
1440 PRINT AT Z,l4:HECI, TO ZH&AT 
24173H$ECI1, 3 TO 4)5A7T 2,20:H$41, 5 


TO &) 
1450 PRINT AT 4,0:"1 = "5HELI, 7 T 
OD 56) 
1560 PEINT AT B,0:"Z = ":H$EC1, 57 
TO 108) 
1670 PEINT AT 12,04"3 = "5H&C1,107 
TO 1565) 
1630 PEINT QT 164,01"4 = "iHÉlI, 15 
7 TO) 


1685 IF T=1 THEN RETURN 

15490 PRINT AT ZO,O:"DIGITE ENTE P/ 
NOVA CONSULTA! 

1700 PRINT AT £l,65" 
NU" 

1710 LET Zo=INEEYTS 
1720 IF Zé=CHFRS 118 THEN GOTO 1500 
1730 IF Z$="mM" THEN GOTO 110 

17940 GOTO 1710 

So CS 

2010 PRINT AT 10,04" 
GITE ENTER" 
2015 PRINT 


SME 
EAD AA, 


OU M FARA O ME 


PARA GROVOR DI 


"PARA O MENU 
INPUT Z& 
aDos IF Zé="M" 
2040 GOTO P980 
S000 CLS 

5005 LET D$=">" 
85004 LET Ed='")" 
S007 LET F$="5" 
5008 LET G6$="> 
SOLO PRINT TRE 43"REGISTEO NUMERO 
HIT 

súZ0o PRINT TRE 4:"DIA Lo of N 
SÕ30 PRINT AT Z20,0:"DIGITE DIA" 
S040) INPUT At 
sS0S0 PRINT AT 
5060 PRINT AT 


DIGITE M” 


THEM GOTO 110 


1,SIAS$ 
20,035"DIGITE MES" 


SO7O INPUT Es 
s080 PRINT HT 1,11:5B% 
S085 GOSUÊB 6000 


5090 PRINT AY 20,05“DIGITE ANO" 
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51400 INFUT C$ 

3140 PRINT AT 1,1450% 

“120 PRINT AT 4,505"1 = "5AT S,0:"2 
= "AT 12,0º"3 = "AT Lh,0s!4 =" 

S130 PRINT BT 20,0;"ALTERAR OU 
- MENSAGEM? (A/7)" 


INC 


2140 INPUT L$ . 

5150 IF Lé="A” THEN LET L$="ALTERA 
fer 

S150 IF L$="I" THEN LET Lé=" INCLUI 
170 PRINT AT Z0,05"QUAL MN DA ME 
VSGEEM Ho ºiLé 

sigo INPUT L 

121 IF Lti OR L)4 THEN GOTO 5170 
5195 PRINT AT ZO,OS"DIGITE AQ MENSA 
SEM d 

190 TF qui THEM INPUT D& 

200 IF L=1 THEM PRINT AT 4,4:D% 
2210 IF L=Z THEN INPUT Es 

220 IF =2 THEN PRINT AT 3,45E9 
9230 TF L=3 THEN INPUT FS 

S240 [IF L=5 THEN PRINT AT 12,45F% 
5250 IF L=4 THEN INPUT 68 

260 TF L=4 THEN PRINT AT 16,455% 
S209 IF Lili DR L)4 THEN GUTO 5480 
Soro PRINT AT 20405ºDUTRA MENSAGEM 
5280 INPUT m$ 

s290 IF M$="Nº THEN GOTO 9315 
=300 IF M$CI"S"THEN BOTO 3280 

5310 GOTO 5130 

“315 IF T=i THEN GOTO 1200 

SE PRINT AT Z0,0:"DADOS CORRETOS 


E AN 


EE INPUT Z& 


“340 TF Zf="Nº THEN GOTO 5000 
Sã50 IF Z()"S” THEN GOTO 5330 
=S380 LET HECCTI=AS+ES+CS+DSI+ES+FS+ 


70 1.ET CT=LT+1 


SS) PER TAM 


Sodo TE n=0 THEM RETUEN 

s003. FOR I=1 TON 

Syd TÊ HELISTO Z)=A% AND HECI,S T 
O 4i1=B% THEN GOTO 6030 

8015 NEXT 1 

AZ SE TURN 

a RE Ti] E a 

SU PE TNT AT 12,3:""“"ESTE DIA JH 
ESTA CADRSTRADOC SO 


b04S PRINT OT 13, 
Fi DECOO 2” 

gO&é PRINT AT 14445 
foda? PRINT AT 19,0 
080 LET LZe=INEEYS 
EES [IF Zh=CHES 118 
sv6b0 GOTO 4050 

LC 

SAVE"OGGENDAS 
7999 EUTO LIO 


4:"DEVE SER USADO 


“DO MEMLIM 
I"(TECLE ENTER" 
THEM 


GOTO iló 


p= a 
+ [é] 

— — =) | 
' + 


as 












LO EEE E 


so a 

DO “4 LHSSINO * 
SO) Ca PFrROLOGICA e 
bo + Cr-300/CPSÕO * 


E) PER RIC RA 

bo DIM IME UU sSULAs US. HDS FL:GOTO 

240 

TO INS="CIUS=SINEKEYS:ND=0: B=02U45=WD 
ILA=bD:IFFL=HDTHENFL=1 

SO PRINTSTRINGE(ABSCFL),CHES(136)) 

SSTRINGS LHES CFL), CHRE(Z4)): 

0 PRINTCHES( 14)2:FORHE=ITOZS:H$=T 

NEEY E: LFUEC SP "THENLOO  ELSENEXT:PE 

INTCHEE(15)5:FORHA=1 TOZS: NE=SINFEEYS 

*LFHEC9PPTHENIOO  ELSENEXT:GOTORO 


100) IFHS()CHR$(13)THENIZO 
NTSTRINGS(ABSCFLI-WUS,! "3 
JiO PRINTCHES(15);:W4=25:NEXT:RETU 
Peg 

1Z0 PRINTCHES(14)5 


ELSEPRI 


* IFHG=CHRECZ4) TH 


ENPRINTSTEINGS (UNL A, CHRSCSS)) 5 2: BOTO 
70 
130 IFUHGRA)CHRSE CB) THENI7O  ELSEIFUHL 


L=O0THENSO ELSEPRINTCHES(24)5 : IFF 
LYOTHENISO  ELSEIFPEEE(15418)=44TH 
ENL&O 


140 IFPEEK(14413)=46THENHD=0:GOTO1 
50 ELS Re NE DES DENTES A 
15)=45THENUS= 

150 IN$= SLEPTSCINS LENCINS)-1) 

160 ULZ=HLZ—-1:POKE16418,136:6G0T090 


170 IFRESCFL)I=WNLATHENSO 
JOTHENTFEHS)=" 
130 IFW$&=". 


ELSEIFFL 
“ANDUS €="Z"THENZZO 
“ANDHD=OTHENHD=1GOTOZ2O 


190 IFWU$=" 
:GOTOZIO 
200 IF(N$&="-"ORNgE="+" 3 ANDHS=0BANDHL 
L=O0THENHS=1:6G0TOZ20 

LO TENSEC"PONORUS)"9"THENSO 

220 PRINTHS: : INS=INS+H$SINLZ=WNLZ+1 
230 IFABSCFL)=1THENILO ELSE9O 

240 CLENFZOO0O: DEF INTA-E : GOSUBAZO 
:T54="CASSIMNOM! 

ago DIMAS(73) BSCP)NMECBI A(7S)P 
HCIS)  TXÉECZO SS HINC(B) 

260 CLS:FORA=ITOVS:FEBDAS( 


1" THENPRINTHS: CHLH=INL + 


PIBHATE(NS.O* 
d a 


HE SRD) 
PCA] 


E bit TOR 


CASSINO 


CFP 300 3 
Ê 
A 


=| 
= 


Você não precisa ir a Mônaco ou ao 
Uruguai para tentar a sorte. Convide 

seus amigos e aposte na roda da 

fortuna com seu micro. O jogo que 
publicamos neste espaço permite a 
participação de até oito apostadores e 
apresenta todos os comandos no vídeo. 
Siga as instruções corretamente e boa sorte! 





HIIMEXTIRESTORE:POFH=1ITOZ3:READALA INTeS4A , STEINGSCZL, 131) 


PENEXTESPORA=ITOLSEPEGDPACO)ENEXTEF 380 PRINTEZZO,"TODOS JOGADORES REC 
DRQSLTOS ATC) SS0:NEXTERONDOM:MS=  EBERAM 21 FICHAS PAPA JOGAREM. "PP 
Md="Crt gate “EPRINTCHR$(23): INT:PRINT"UX CASSINOSD)E 
sig 5%: UM ESTABELECIMENTO PEQUENO E A SUA 
270 2$=STRING$(Z2,143):PRINTESZ4, "A BANCA"; :PRINT:PRINT"TEM APENAS CP 
Go 1 O É ds E | i i É | LM PRTNT:PR $100,00. 


TENTE QUEBRA-LAR. ALGUMAS 
JOGADAS ALTAS,":PRINT:PRINT'PODEM 
CONSEGUIR ISTO."; 

390 EBANK=100:0p=FRE(AAS):GOTO4LO 
400 IP=0:RESUMESSO 
410 ONERRORGOTOO 


[MTE PORA=1T073:08="+"+HE CO) :AStAI= 
*MEXT 

FO v=ITOSIFEGQDSD: 
:“NEXTIFOPN= 


Isliii=10 


CECILI=]ECLI+C 
POPIcetN)=EITGHT 


FORN=1TOLO:FEADR !PRINTO972, "TE 


D:DLt=SDLS+CHPECEDS NEXT LLE tENTER> PARA CONTINUAR": :FORNI 
240) FORN=9TOL4:POSNI=LTOLO:READED =1TOSO:!NEXT:IP$="": IP$=INEEYS:PRIN 
THEM =THESCD ACHE CRDICNEXTETAEENO T6972,5TRING$(31,32)3:FORN=LTOZS:M 
=TXECNI+DLEINEXTIFORN=SITOLI:SFEADED EXT:IFIP$=""THENSLO  ELSECLS:GOSUR 


ETXS(1S)=TAE(IS)+CHES (RD) NEXT S70 


bo FORMN=1TOS:FORNI=ILTOS: FREADED:TA 420 TK=TK+NM:PRINTeS,CHRECISSISTE: 
Eli =TAS(N)+CHRSCRD) ENEXTNI CHR$S(143);:PEINTE62-M5, CHRSLIAS)SP 
310 COTA AN End gl Cade DICHR$(143);:1P$="":PROFIT=TE-PD:I 
Sa 1,24 145,142; 1,24 10.14245145 FPROFIT(-BANKETHENAIO ELSEPRINTES? 
Lya Pç da I, AD RAE o,"LUCRO DA CASA HOJE CR$E"SPROFIT: 
120414245 ] CRER Re DO RCA ST : FORN=1TONH 


1411 4 Lis Es Ly ado! nbs S1á45 
SUB. BID. St PA, SS, 1064, 


430 PRINTES34,STRINGE(hO,32)3:PRIN 
TOS34, 26" "ANM$CN) PEPRINT" ESCOLH 


LISO, I17O, 194,234,15 dy4S,47,32,/43,50 A UM NUMERO PARA APOSTAR "s:FlL=-2 
(SB, 45,3, 5A 440 GOSUBZO à IFIN$=""THEN460 EL 
doll DATA 52,67 ,203163,90,559473,8Z97 SEE (N)=VAL (INS): IFEC(N)=OTHEN43O E 


4,83.32,50.32.30,65,71,65,32,32,50 LSEIFE(N)(C)1ANDE(N)C)ZANDE (NI) CISAN 
2604 A Sd pio pm) 9 7d q Card sda a cheia 1457 DE (M) ()10ANDE(N) <)2Z20ANDE (N)€)13AND 


49,32,80,65,71,65,32,49,49,50,48,3 


E(NISISOTHENS3O  ELSEGOSUB45S0 NE 


120,85.71.65,32,50,42,49,51,32,80 | XT:GOTO47O 
65,71,65,32,572,48,52,48,32,80,65, 450 PRINTEPA(N)+Q, "VAI NO NUM. 5 
71,55,32,82,40,49,302,00,/65,71,65,5 E(N)5:PRINTESS4, STRINGS (63,32);:PR 
2,/32,34:32,549 INTGE32, STRINGS (63,32); : RETURN 
330 DATA Seo 168 Boa vo asas 460 IFE(N)=OTHEN430  ELSEFORN=ITON 


4 sm a fr Ma | ri 
2,.80,69,82,60, 69,8 


= 194100 ,/89,36 
6, did 32,32 15,67 1851864 79,88) 


M:PRINTEFACN)+0,4 "VAL NO NUM. "SI E( 
N)5:NEXT:PRINTESS4, STRINGS (63,32); 
32432,03,792,66.82 85,492. ,52 “70 FORT=1T015:FOREN=LTOS:PRINTeESLS 
340 BI=FRELODS) !CLSIPRINTSTEINGEC(S +04," "SBS(N)S! "S2NEXTN,T:T=0:P=o: 
Ls 19PLISSTRINGS(ILO,I7O) i=RND(S54) :Y=X+18: Z=END(5) : FORM=LTO 
390 FL=-L:PRINTELF2, "QUAL O NE. DE 17+E:FORNAS=XTOY:PRINTES24+P.AE(NS) 
JOGADOFES (1-8) +? ": !GOSURTO :nN 1*P=P+3:NEXT:FORS=ITOTINEXT:T=T+15 
VAL CC TIN$S): TFNME LOSNMISTHENGEDTOSZSO EX=X=1:y=Y-1:IFX(CLTHENX=54:Y=72 
480 P=0:NEXTM:PRINTELSS, "GANHOU 53 
540 FORN=1TONM:PEINT:PRINTYNOME DO. "4B$iN4-0) 5 :GOSUBSLO :PRINTEG06,Z 
JOGADOR =====) "Ny" "IS tFL=12:60 E Ea TECLE (ENTER) PARA O FESULTA 
SUBS NMECM)=INSINEXTECLS: TE=-N DO coli - 


jo 490 IP$=INKEyS:IP$="" 
570 PRINTeZO,”" ATENCAO MPR 


S00O IPS=INKEYS:PRINTO906,72$:: PRINT 
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943,25: : FÓORNI=ITOLOO:NEXTIPEINTES 
Dão "S:PRINTEG453," "22: FORNA=ITO 
SOS NEXTELFIFA=""THENSÕO  JELSEPRIN 
TODA , STRING$(364,32)35:60SUB400 PP 
FINTÊ1L9S5, TX$( 15): :GOSUESSO :GOTDA4 
E 

510 FORT=1TONM:IFA(NS-0) CS LSTHENIF 
B(N4-QI=E(T) THENPRINTeEPACTI +." "3 
“PRINTUSINGME:DUNS-D)sS:PRINTTXEL 1) 
CESMINCTI=UMINCTI+ACNS-0)+1:PD=PD+DE 
Ma=-QrITE=TE-12:6G0T0S40 

del IFOCNS-O)=L3THENIFA(N4á-Q)=E(T) 
THENPRINTEPA(CT) +04" "5 2PRINTUSINGM 
ESHUNA-Q)+S7S PRINTTXECL)FeNINCTI= 
HINCTI)+0(MN4=0)+22:PD+40:TE=TE=1:B0 
TOS4&0 

350 PRINTEPACTI+O," 
EIS PPRINTTXS(Z); 
S40 MS5$=STRECED) +! "MMOs FN(MSS) 
CHINCTI=HINCTI=L:ENEXTERETURN 

390 FORT=1TONM:PRINTEPACTIAQ,! 3: 
PRINTUSINGMESNINCT):2: LFSGNCHTINCT)S 
=-1 FHENFRINTEPALCT)+Q+9. TXS(3)35:G0T 


"5 FPRINTUSINGM 


0560 "ELSE:TESONCHINCT))=+1I THENPE 
INTEPA(TI+0+9, TX$(5)3:60TOS60 EL 


SE: IFSGMCHINCTIN=OTHENPEINTÊEFR(TIA+ 
Q+P, THE(G): 

3560 NEXT:FETURPN 

s!Q PRINTEZAG+HO, STEINGE (SO, 140):FR 
INTeS7A+aO STRINGECSO, LIL) PRINTESS 
+00, CHPRE( 138): :PRINTESOFZ+G.CHPS(IS 
S)SIPRINTEZD6,CHESCIASI)CHES(I71)S 
CHE F(1S1)5SCHPS(143)::PPINTeS14,CHE 
(143); CMRECILSO)SCHREECISO)SCHREE(IA 
313 

5990 PRINTeE3SZS,CHRE(I91)S:PPRINTESS! 
9LHRSCIVI)SIPRINTESS2, STRINGICh4,1 
LOJS2PRINTOPASB, STRINGS CSA. L40I::PR 
INTRLZ, STRING$(5,140):! CP ":CHESU 
14034" "SCHR$(140)5! MITSEL! 
"ASTrINES(6s,140)5 
590 PRINTEGO,STEING$(13,140)::PRIN 
Ta39 ,CHESLIBE)PPRINTELOS, CHRECISS 
JsSSPRINTOLSS, CHESC(1L9LISIPRINTELSTo, 
CHRGCIP1)5:PEINTeEZL7 STFINGHCOLS, 13 
1) 3: FORNN=1 TONM:PRINTEPA CNN) =3 NHME 
CNNJSENEXTSFORNN=9TOLS:PRINTEPOCENN 
Vs TXECNNISINEXT 

OO IFPOINT(123,154)=00FPOINT(10,37 
'=0THENGOTOS7O  :ELSERETUEN 

&10 FORN=1TOZS:FRINTeSSA,STFINGÉCA 
3,52)5 :FOPT=1TOZO: NEXTEPRINTEDDGA," 
VOCE QUEBROU À BANCA DO CASSINO 
| TECLE CENTER: [UI"SSFORT=I1TOSO:X 
$=INKEY$:IFXt()"“THENRUNELSENEXTT: 
Nº INPUTAXESRUN 

S20 CLS:PRINT'RODO DA FORTUNA ts 
CHE $(140)1" PROLOGICA CP-500 ":PRI 
NTSTEING&(S4, L9L):STRING&CLO,1I70O):S 
“PRINTºO SEU COMPUTADOR PESSOAL ":P 
FINTeS14,"PARA INSTRUCÕES TECLE “(1 
| PARA COMECAR TECLE CENTERS" PRIN 
TeEBPA  STFEINGE(44,135)5 

30 P=O0:FDRENSLTOSL:PRINTESSS+P, CHE 
(IFP) LPRINTESP7+E.CHEELIZS) 1 1P=P 
+1:NEXT:PRINTeEPSA. STRINGS (3. 133 
LP$="": IPE=INKEYS: IFICS=""THENAIO 
ELSEIFIP$&="I"THEN64O  ELSERETUEN 
bit PRINTEZSS,"1. INTRODUZA QUANTO 
VOO JOGAR ( 1-3 ) 

INTRODUZA O NOME DE CADA JOGADO 


Shy 


UU 27 td 


CADA JOGADOR DEVE ESCOLHER UM N 
UMERDO" 
s50 PRINT'4. APOS A ULTIMA ENTRADA 

A RODA COMECAR GISAR":PRINTSTEINGS 
(63,140): PRINT" NOTA: O NUMERO 
VENCEDOR E ANUNCIADO AFOS À FODA 
PARAR . 

TECLE t<ENTER)» PARA VER O RESULTA 
DO. SE TODOS OS JOGADORES" 

b60 PRINT'QUISEREM MANTER AS MESMA 
S APOSTAS TECLE (ENTER) OU ESCOLHA 

NOVOS NUMEROS. 

((SE ALGUEM MUDAR UM NUMERO. TODO 
S DEVEM APOSTAR NOVAMENTE. )+":PRIN 
Te977, "TECLE (ENTER) PARA COMECAR" 
1*60705830 








NA COMUTAÇÃO 
DE EQUIPAMENTOS 
ELÉTRICOS 





Você pretende viajar e tem receio de deixar a sua casa 
vazia? E se você a entregasse aos cuidados do seu CP 500, 
que em horas determinadas acendesse e apagasse as lu- 
zes,.a TV, o FM? Isto já é possível se você acoplar ao 
seu micro o circuito elétrico que descrevemos nesta pági- 
na. Tanto o circuito como o artigo foram elaborados, es- 
pecialmente para Geração Prológica, por Alexandre 
Faragó, arquiteto, que atualmente trabalha na Eltec Cons- 


truções Elétricas. 





O CP 500 dispõe de uma saida para 
gravador cassete, constituída por um co- 
nector DIN de cinco pinos (vide manual 
de operação e linguagem Basic do CP 
500, pág. 60). Dois desses cinco pinos, 
os pinos | e 3, estão conectados a um 
contato de relé internamente ao CP 500, 
sendo utilizados por este para acionar 
ou desligar o motor do gravador casse- 
te, através do bit | da porta 236. 

O circuito que desenvolvemos e de- 
talhamos na fig. | permite o aproveita- 
mento desses mesmos pinos (Il e 3) para 
o acionamento, através de um relé in- 
termediário, de outros equipamentos 
elétricos comuns, tais como: lâmpadas, 
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sirenes, pequenos motores e eletrodo- 
mésticos em geral. 
Descrição do Circuito 

O circuito de comutação deve ser ali- 
mentado por uma tomada comum de 
HO volts. Esta tensão entra através da 
chave geral CHI e do fusivel Fl no pri- 
mário do transformador TI, que deve 
fornecer no secundário uma tensão en- 
tre 9 e 10 volts. 

A ponte de diodos Dl a D4 forma um 
retificador de onda completa que retifi- 








ca a tensão secundária do transforma- 
dor e o capacitor Cl faz a filtragem da 
tensão retificada. Esta tensão, filtrada 
e retificada, passa então pelos pinos | 
e 3 do conector cassete do CP 500, acio- 
nando ou não a bobina de RLI, que por 
sua vez liga ou desliga o equipamento 
elétrico conectado à saida AC do cir- 
cuito. 

O ramo formado pelo LED DS e pe- 
lo registrador R1 funcionam como uma 
simples indicação piloto de tensão de 
circuito. O diodo D6 tem a função de 
proteger o circuito da sobretensão indu- 
zida pelo acionamento de RLI. 


Software de Operação 


Uma vez que o circuito esteja devi- 
damente conectado, o controle do equi- 
pamento conectado à saida AC passa a 
ser feito pelo CP 500. Para ligar à saida 
AC digite diretamente, a partir do Ba- 
sic, ou inclua no programa o seguinte 
comando: 

OUT 236,2 

Para desligar a saida AC utilize o se- 
guinte comando: 

OUT 236,0 


Em Assembler, utilize as rotinas: 


LIGA LD A,2 
OUT (236),A 

DESLIGA LD A,0 
OUT (236),A 


Importante não esquecer que a po- 
tência máxima da carga conectada à saí- 
da AC depende da capacidade de cor- 
rente do relé utilizado. Para o relé aqui 
especificado, essa potência não deverá 
ser superior a 200 W. 








AS" a 


“CHI — Chave SPST 


Ti — Transformador 110/10v, 500mA 


DI, D2, D3, D4 — Diodos 1N4001 
Cl Capacitor 4700 uF,16v, eletrolítico 
DS — LED 

Ri — Resistor 330 Q x 1/4w 

D6 — Diodo IN4148 


RLI — Microrelé para circuito impres- 


so (bobina 12Vcc) 
Fl — Fusível 0,5A 





Diagrama esquemático do circuito 
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CONECTOR 
q CASSETE CP500 





O pequeno 
grande micro. 


Agora, na hora de escolher entre um 
microcomputador pessoal simples, de fácil 
manejo e um sofisticado microcomputador 
profissional, você pode ficar com os dois. 

Porque chegou o novo CP 300 Prológica. 

O novo CP 300 tem preço de 
microcomputador pequeno. Mas memória 
de microcomputador grande. 

Ele já nasceu com 64 
Kbytes de memória 
interna com 


So 





Pode ser ria externa para até 
acoplado a uma quase 1 megabyte. 
impressora. 


E tem um teclado profissional, 
que dá ao CP 300 uma versatilidade incrivel. 
Ele pode ser utilizado com programas de 

fita cassete, da mesma maneira que com 


programas em disco. HE ||| 4 | 





ANERaA 
LE 


O único na sua faixa que já 
nasce com 64 kbytes de memória. 





LB - 2224-5516 - 


Sorocaba - 33-7704 « SC-Blumenau - 22-6277 - Chapecó - 





expansão de memó- 


de Fora - 212-8075 
g2d-3422 - Foi 


Y 4 ar ge 
N ' Su 221-3516 - Pelotas 
Ww 7 . Barretos - 411 - Campinas - 2-4483 - Jund 
| DE GS EDS OSS TES Gio ode m da Barra « 7128-2472 - São) 


22-D001 - Criciuma - 33-2604 Florianópolis 


Compativel com 
programas em fila 
cassele ou em disco. 


Pode ser ligado ao seu"aparelho de TV, da 
mesma forma que no terminal de vídeo 
de uma grande empresa. 
Com o CP 300 você pode 
fazer conexões telelônicas 
para coleta de dados, 
se utilizar =" 
de uma 
impressora 
e ainda dispor de todos 
os programas existentes 






Pode ser ligado 

a um televisor comum 
ou a um sofisticado 

terminal de vídeo. 


possibilidade de Permite para o CP 500 ou o 


Re ion TRS-B0 americano. E o que é melhor: 


você estará apto a operar qualquer 

outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tem tantas possibilidades de 
expansão ou desempenho igual. 

CP 300 Prológica. 

Os outros não 
fazem 0 que ele faz, HA doi carid 
pelo preço que  EEHN 
ele cobra, Lt 


RESERVA DE MERcADO| 


DEFESA nr 
VALORES iPaA AIS 



























Ay Engº Lurs Carlos Berrini, 1168 - SP 





” AM 

Manaus - 234-1045 
«BA-Salvador - 247-8951 
- CE-Fortaleza - 2256-0871 - 244-2446 
- DF-Brasília - 2256-1523 - 225-4534 « ES-Vila Velha 
2209-1387 - Vitória - 222-5811 + GO-Goiânia - 224-7098 «MIT 
Cuiabá - 321-2307 « MS-Campo Grande - 383-1270 - Dourados - 421-1052 
« MG- Belo, Horizonte - 227-0881 - Betim - 531-3806 - Cel Fabriciano - 6841-3400 - Juiz 

eriândia - 235-1099 « PA-Belém - 228-0011 « PR-Cascavel - 23-1538 - Curi- 
do Iguaçu = 73-3734 - Londrina - 23-0065 « PE-Recile - 221-0142 « Pl-Teresina 


222-01R86 » RJ- Campos - 22-3714 - Rio de Janeiro - 2064-5797 - 253-3395 - 252-2050 « RN-Nalal - 222-3212 » R5-Caxias do 
- 22-9918 - Porto Alegre - 22-4800 - 24-0311 - Santa Rosa - 512-1399 + RO-Porto Velho - 221-2656 + SP. Solicite 
ai - 434 ce Marilia - 33-5099 - Mogi das Cruzes 


- 4609-6640 - Piracicaba - 38 1470- Rubeirão demonstração 
os Campos - 22-7311 - 22-4740 - São José do Rio Preto - 32-2842 - Santos - 33-2230 nos principais 
22-9622 - Joinvile - 33-7520 » SE- Aracaju - A NTO magazines. 





==> pe 


AGORA VOCÊ VAI CONHECER AQUTRA FACE DO GPS00 











u 
. 
mete 
( 
! 
A Prológica está lançando DR? | 
um micro que vale por dois; o CP 500 | Á 
fofo ff: [0/=No 1/0]: o Á | 
" Operando com dois drives e apenas o O CP 500 opera com até 16 digitos, uma 
“dois disketes, o CP 500 pode armazenar ” verdadeira mão na roda para quem quer soluções na área 
até 700 Kbytes. financeira. E 
O segredo é a face dupla. Ela permite ao CP 500 ler Com ele você tem acesso ao Videotexto, ao Projeto 
dos dois lados do diskete e dobrar sua capacidade - Cirandão e a inúmeros bancos de dados existentes no Pais. 
de memória, | Outra vantagem: você não precisa abrir mão dos softwares 
O mais incrivel é que ele custa 30% a menos do que que você já possul. 
qualquer configuração semelhante. E você ainda Dê um pulo até o seu Revendedor Prológica e fique - 
economiza dinheiro com a compra de disketes. face a face com a dupla face do CP 500. Vale a pena. 


= 


LP SDO- 0230 FACE DURA. ae orrmmemo 


Es SER PROLOGICA 








